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Sempre di Owen Bishop 


SOFTWARE 64 

Programmi pratici per il Commodore 64 

Fai lavorare il tuo Commodore 64 per te! Il potente Commodore 64, con la sua 
grande memoria e grafica versatile, è ideale sia per casa sia per ufficio. Que¬ 
sto libro contiene 13 programmi pratici che ti aiutano ad organizzare meglio la 
tua vita, a gestire una piccola impresa e forse a vincere una fortuna. 




Punti chiave 


I Untati di ogni gioco sono stati ottenuti direttamente dall’uso della stam- 
|immIb Commodore VIC-1515 collegata al Commodore 64. Ciò è stato fatto 
|>«r «vltare gli errori derivanti dalla dattiloscrittura. Tutti i programmi dovreb¬ 
be n funzionare perfettamente, sempre che siano correttamente copiati. La 

l/ione di ogni gioco prevede una sezione che faciliterà il lavoro di co¬ 
piali" a Qui di seguito vengono fornite alcune note generali che valgono per 
lutti I programmi. 

Un errore facile da compiere (è accaduto sovente durante la stesura di 
'lineilo libro!) è quello di digitare la lettera “O” invece del numero zero. La 
lettera è usata nelle parole Basic, come per esempio “FOR” e POKE”, e non 
viene mai utilizzata in questo libro con funzione di variabile. Nei listati lo zero 
viene barrato per distinguerlo dalla lettera. Un'altra possibile confusione può 
«urgere tra la lettera "I" e il numero “1” (uno). Per questo la lettera "1” non 
viene mai usata da sola in nessuno dei listati del libro. Non è stato tuttavia 
possibile evitarne l'uso nelle due variabili TI e Tl$. Per ovviare confusioni 
non viene usata nessuna variabile denominata TI. 

II punto e virgola è essenziale in numerose istruzioni PRINT. Bisogna 
soprattutto stare attenti ad individuarli in fondo alle linee di istruzioni. Può 
ancora essere più difficile individuarli nelle linee multistruzioni come: 

FOR J=1 TO 10: PRINT M$(J); :NEXT 

Se si dimentica il punto e virgola la visualizzazione sullo schermo risulterà 
falsata. 

Il Commodore 64 necessita di un uso frequente dell’istruzione POKE per il 
controllo della grafica e del suono. Dare all’Istruzione POKE un numero sba¬ 
gliato può avere conseguenze disastrose. Se il computer non risponde più ai 
comandi, dopo aver dato RUN al programma, è probabile che ci sia un erro- 
to di indirizzo in un’istruzione POKE. Questo non potrà mai danneggiare il 


computer, ma risulta fastidioso il dover disattivare e riattivare la macchina e 
riscrivere nuovamente il programma. 

Per risparmiare spazio vengono sovente usate variabili come S (per il suo¬ 
no o per il SID) e V (per il video o VIC II chip) in una istruzione POKE. All’ini¬ 
zio del programma, per esempio, avremo istruzioni come ‘V = 53248' e poi 
useremo istruzioni come ‘POKE V + 17’ lungo tutto il programma. Se è sta¬ 
to dimenticato di digitare l’istruzione che definisce V, ogni istruzione come 
‘POKE V + 17’ nello svolgimento del programma darà strani risultati. 

Molti dei programmi si avvalgono delle facilities del 64 per la definizione 
grafica. Per fare questo il programma altera la disposizione logica della me¬ 
moria del computer; cosicché se si interrompe un programma digitando il ta¬ 
sto RUN/STOP è probabile avere delle sorprese neM’usare la tastiera. Non 
bisogna preoccuparsi, il computer non viene danneggiato, è sufficiente pre¬ 
mere il tasto RUN/STOP contemporaneamente con il tasto RESTORE per 
tornare alla normalità. 

I programmi che modificano la memoria riducono sempre lo spazio dispo¬ 
nibile per la programmazione Basic. Per ovviare a questo problema è inutile 
sia la pressione del tasto RUN/STOP contemporaneamente al tasto RESTO- 
RE sia il comando NEW; l’unica cosa da fare è quella di disattivare e riattiva¬ 
re il sistema. 

I programmi dei giochi hanno bisogno di una grafica attraente e di alcune 
routines in codice macchina. Tutto ciò risiede nelle istruzioni DATA. Molte di 
queste sono lunghe e bisogna dedicare loro una speciale attenzione nella 
copiatura. Un consiglio prezioso è quello di salvare il programma sul suppor¬ 
to magnetico esterno (cassetta o disco) prima di farlo correre. Potrebbe es¬ 
serci un piccolo errore di battitura (per esempio in un comando POKE) che 
causerebbe un errore non recuperabile; l’unico rimedio in questi casi è di di¬ 
sattivare e riattivare il computer ed iniziare da capo caricando in memoria, 
dalla cassetta o dal disco, il programma già digitato. 

Una delle caratteristiche dei computers Commodore sono i caratteri di 
controllo. Essi compaiono nelle istruzioni PRINT e fanno eseguire al compu¬ 
ter uno determinato comando. Per esempio il cuoricino ’n’ ha lo stesso ef¬ 
fetto che digitare contemporaneamente i tasti CLR/HOME e SHIFT. La mag¬ 
gior parte di questi caratteri compare nei listati ma non appare sul video 
quando il programma è in esecuzione. La stampante VIC 1515 riproduce 
molti di questi caratteri con un basso grado di risoluzione che ne rende diffi¬ 
cile il riconoscimento. Per questa ragione la sezione 'DIGITAZIONE', pre¬ 
sente per ogni gioco, fornisce una lista di tutti i caratteri di controllo usati nel 
programma insieme al numero di linea in cui sono localizzati. Se un caratte- 
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ro compare più di una volta nella stessa linea, il numero tra parentesi ne in¬ 
die,i lo volto. Qui sotto viene riportata una tavola dimostrativa di come si ot¬ 
tengono i caratteri di controllo durante una istruzione PRINT od INPUT. 


CARATTERE 

EFFETTO 

TASTO PREMUTO 

5 *» 

Cursore a home 

CLR/HOME 


Pulisce schermo e manda 
il cursore a home 

CLR/HOME e SHIFT 

A- w 

Cursore in basso 

up-down CRSR 

3 m 

Cursore a destra 

left-right CRSR 

ri 

Cursore in alto 

up-down CRSR e SHIFT 

■i 

Cursore a sinistra 

left-right CRSR e SHIFT 

« - 

Stampa in nero 

CTRL e 1 

ca 

Stampa in bianco 

CTRL e 2 


Stampa in rosso 

CTRL e 3 


Stampa in ciano 

CTRL e 4 

m 

Stampa in porpora 

CTRL e 5 

^ «i 

Stampa in verde 

CTRL e 6 

a 

Stampa in blu 

CTRL e 7 

v m 

Stampa in giallo 

CTRL e 8 

« * 

Reverse on 

CTRL e 9 

- » 

Reverse off 

CTRL e 0 


Bisogna notare che tutti i caratteri di controllo appaiono in negativo (bian¬ 
co su nero). Bisogna inoltre fare attenzione nel digitare tali caratteri in una 
stringa delimitata dagli apici (“"), altrimenti verranno interpretati come co¬ 
mandi immediati. 

La lista di cui sopra non contiene i caratteri di controllo per la definizione 
del colore ottenuti usando il tasto Commodore. Questo è il tasto contrasse¬ 
gnato dal simbolo della Commodore, situato in basso all’estrema sinistra 
della tastiera. Ci si riferirà ad esso come il tasto “C=" poiché è quasi simile 
al simbolo che lo contraddistingue. La stampante VIC 1515 ignora questo 
simbolo che non compare nei listati. Quando questo carattere viene usato, 
del resto molto raramente, sarà evidenziato nella parte dei "caratteri non li- 
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stati” della sezione "DIGITAZIONE”. La tavola sottostante mostra come ot¬ 
tenere questi caratteri ed il loro effetto. 


CARATTERE 

EFFETTO 

TASTO PREMUTO 

□ 

Stampa in arancione 

C=e 1 

n 

Stampa in marrone 

C= e 2 

* 

Stampa in rosa 

co 

<D 

II 

O 

m 

Stampa in grigio scuro 

© 

II 

o 

a 

Stampa in grigio medio 

C= e 5 

n 

Stampa in verde chiaro 

C= e 6 

□ 

Stampa in azzurro 

C= e 7 

■■ 

■■ 

Stampa in grigio chiaro 

o 

II 

(D 

00 


Vili 


CAPITOLO 1 

BUCO NERO 



Sei al comando di una navicella spaziale e stai esplorando una remota 
parte della galassia. Questa regione dello spazio ha un suo fascino e una sua 
attrazione perché è piena zeppa di pepite di oro puro, la maggior parte delle 
quali è grossa come una casa o forse anche più. Gli esploratori spaziali co¬ 
me te ne possono fare un ricco raccolto senza troppa fatica. 

Si pensa che queste pepite furono prodotte da fusioni nucleari durante 
l’ultimo stadio del collasso di una stella supergigante che una volta esisteva 
in questa regione. Ora tutto ciò che ne rimane sono poche tracce di gas, le 
pepite e ... il BUCO NERO. 

Sfortunatamente l’ultimo stadio del collasso ha prodotto anche un Buco 
Nero nel quale sparì la maggior parte della massa stellare. I buchi neri non 
sono necessariamente grandi, anzi questo è cosi piccolo da non potersi ve¬ 
dere che a circa un chilometro di distanza. Tuttavia la forte attrazione della 
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materia condensata fa si che lo si possa avvertire a migliaia di chilometri di 
distanza. Qualsiasi oggetto aH’interno di questo raggio, inclusa la tua navi¬ 
cella spaziale, è attratta forzatamente verso il Buco Nero con una accelera¬ 
zione mai vista prima. 

Cercare oro nello spazio è un'attività rischiosa, quindi per precauzione la 
tua navicella è equipaggiata di potenti raggi vettori che possono superare 
l’enorme attrazione gravitazionale del Buco Nero, sempre se attivati in tem¬ 
po. Poiché non puoi vedere il Buco Nero devi indovinare dove esso si trovi 
osservando la direzione verso la quale la tua navicella viene attratta. Agisci 
velocemente, pochi attimi di ritardo possono esserti fatali. 


Come giocare 


Dopo aver digitato RUN e premuto RETURN ti viene chiesto il livello di dif¬ 
ficoltà che vuoi affrontare. Il livello numero 1 è il più facile, Il livello numero 
10 è il più difficile. Più alto è il livello, più veloce è il gioco e più forte è l’attra¬ 
zione del Buco Nero. Digita il livello prescelto (esempio: 8) e premi RE¬ 
TURN. 

Il video diventa blu con il bordo nero. Casualmente vengono disposte venti 
pepite d’oro. Dopo pochi secondi appare la tua navicella spaziale con le sue 
luci verdi e rosse lampeggianti. Sia la posizione della tua navicella sia quella 
del Buco Nero sono scelte casualmente, cosicché due partite non possono 
essere uguali. 

Nell’angolo in alto a destra è visualizzato il tempo in secondi. Hai esatta¬ 
mente sessanta secondi per raccogliere più pepite possibili, preferibilmente 
senza venire risucchiato dal Buco Nero. La navicella si muove sullo schermo 
premendo uno di questi tasti: 

Z per spostarsi a sinistra 
X per spostarsi a destra 
; per spostarsi in alto 
/ per spostarsi in basso 

Ogni volta che viene premuto uno di questi tasti la navicella si muove di 
una posizione (ossia nella colonna o riga adiacente) nella direzione richie¬ 
sta. Non si può uscire completamente dallo schermo. Si raccolgono le pepi¬ 
te sovrapponendo la parte centrale della navicella sulla pepita stessa. Il pro¬ 
gramma tiene il conto di quante pepite sono state raccolte. 
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Presto o tardi ti accorgerai che talvolta la navicella si sposta inavvertita¬ 
mente e, più o meno velocemente, in una certa direzione; ciò significa che 
viene attratta dal Buco Nero. Da questo momento in poi premendo un qual¬ 
siasi tasto di controllo la navicella si sposterà di tre posizioni, a causa dei 
razzi vettori che sono stati attivati automaticamente. Se premerai i tasti giu¬ 
sti in tempo ti potrai sottrarre al Buco Nero. Se riesci a portarti fuori dal rag¬ 
gio d’attrazione gravitazionale verranno spenti i raggi vettori e la navicella ri¬ 
prenderà a spostarsi di una posizione per volta. Quando la navicella è vicina 
al Buco Nero i suoi movimenti risultano irregolari come un frenetico tiro alla 
fune tra essa ed il Buco Nero. Nonostante tutto è possibile raccogliere pepi¬ 
te casualmente e, come bonus, vengono valutate tre volte quelle che si tro¬ 
vano al di fuori del raggio d’azione del Buco Nero. Dunque è un rischio ben 
calcolato; l’importante è non farsi risucchiare. 

Un punto da ricordare è che se la navicella si muove solo quando premi 
un tasto di controllo, la forza gravitazionale del Buco Nero agisce .in conti¬ 
nuazione. Se la navicella viene a trovarsi entro il raggio del Buco Nero e non 
fai nulla per salvarla continuerà a muoversi verso il centro del Buco e sarà 
presto perduta. 

L'entrata nel Buco Nero è accompagnata da una colorazione video ed un 
effetto sonoro adeguato, dopo di che ti verrà comunicato il punteggio ed il 
tempo della partita oltre al punteggio record. Se sopravvivi per tutti i sessan¬ 
ta secondi compare una diversa colorazione video. 

Quando sei pronto per un’altra partita premi la barra spaziatrice. Si pre¬ 
senterà la situazione iniziale con l’opportunità di scegliere il livello di gioco. Il 
Buco sarà probabilmente in una posizione differente. Il punteggio record ver¬ 
rà ricalcolato, sempre che non interrompi il programma e lo faccia ripartire. 


Tattiche vincenti 


Le pepite valgono un punto se si trovano al di fuori del raggio del Buco (di¬ 
stanti più di 10 righe o 20 colonne, in funzione del livello) o 3 punti se sono 
all’interno. Il punteggio finale è calcolato in base ai ‘‘punti per minuto”. La 
miglior soluzione è quindi raccogliere le pepite il più velocemente possibile. 
Se cadi nel Buco, perdi 10 punti, cosicché puoi terminare con un punteggio 
negativo. Se il tempo sta per scadere ed hai raccolto la maggior parte delle 
pepite è meglio che non tenti di raccogliere anche quelle vicine al Buco, 
poiché anche se valgono 3 punti c’è il rischio di perderne 10. È più sicuro la¬ 
sciare scadere il tempo. Tuttavia potresti aver bisogno di un punto, o due, in 
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più per migliorare il record o battere l’avversario, in questo caso il gioco vale 
la candela. 

Se il Buco è nella parte alta o bassa dello schermo, o totalmente decen¬ 
trato, è piuttosto facile raccogliere le pepite nelle aree più distanti. Se il Bu¬ 
co è nella posizione centrale c'è un trucchetto per girargli intorno e racco¬ 
gliere le pepite nel lato opposto. Cerca di saltarlo! Infatti i comandi dati in ra¬ 
pida successione vengono memorizzati nel buffer di input ed eseguiti più tar¬ 
di. Quindi se premi freneticamente il tasto di controllo la navicella continuerà 
ad obbedire a tutti questi comandi anche quando cesserai di premere il ta¬ 
sto. Tutto ciò per risparmiare secondi preziosi nei tempi di volo. 

Se pensi di sapere dove è localizzato il Buco, vale la pena che ti avvicini in 
quell’area per raccogliere pepite. Con la pratica ti sarà possibile posizionarti 
in modo di avere una pepita in direzione del Buco Nero e poi lasciarti attrarre 
per posarti sulla pepita; una veloce accensione dei razzi vettori ed eccoti in 
salvo fuori dal raggio d’azione. Buona caccia! 


Digitazione 


Il simbolo contenuto nell’istruzione PRINT nella riga 190 rappresenta le 
pepite e lo si ottiene premendo i tasti “SHIFT” e "Q”. 

I caratteri di controllo usati sono: 


CLEAR/HOME: 

CTRL-2: 

CTRL-8: 

CRSR-DOWN: 

CRSR-RIGHT: 


linee 20, 100, 520, 670, 690 
linea 100 
linee 160, 760 

linee 610(3), 620, 630, 640(5) 
linee 610(3), 620(3), 630(3), 640(3) 


Sezioni del programma 


Le maggiori sezioni del programma sono: 

20-170 Inizializzazione, include la richiesta del livello di gioco. 
180-200 Visualizzazione casuale su video delle pepite. 


4 








210-240 Selezione casuale della posizione del Buco (riga R, colonna C) e 
della posizione iniziale della navicella spaziale (riga RC, colonna 
CC). La linea 240 rifiuta qualsiasi posizione iniziale della navicel¬ 
la se troppo vicina al Buco. 

250 Visualizza la navicella nella posizione iniziale omettendo la prima 

parte della subroutine alla linea 1000. 

260 Azzeramento dell’orologio. 

270 Punto di rientro di ogni mossa. 

270-290 Visualizzazione e controllo tempo trascorso. 

300-350 Lampeggiamento luci della navicella (alternato rosso e verde). 

360-410 Ricezioni comandi da tastiera, calcolo della posizione della navi¬ 
cella e suo spostamento (subroutine). 

420-510 Calcolo effetti del Buco (se ve ne sono) sulla navicella e suo spo¬ 
stamento (subroutine 1000). 

520-680 Routine finale della cattura da parte del Buco, inizia con effetti 
sonori, poi visualizza il punteggio. Invita a ripetere il gioco. 

690-790 Routine finale quando scade il tempo. Salto alla routine di visua¬ 
lizzazione del punteggio. 

1000-1110 Spostamento della navicella. Controllo sui limiti dello schermo. 

Incremento del punteggio se viene raccolta una pepita (linea 
1080). 

2000 Linea per istruzione DATA dedicata alla creazione dello sprite- 
navicella spaziale. 


Note particolari 

La navicella spaziale è uno sprite multicolore. Il corpo della navicella è 
nero (come il colore del bordo del video). Ha due serie di luci, una rossa, 
l’altra verde. Queste sono alternativamente colorate o nere. Le luci sono sin¬ 
cronizzate con il suono emesso dalla navicella. 

Dei numeri casuali vengono usati alla base del gioco. L’istruzione nella li¬ 
nea 140 usa la variabile del tempo TI per innescare il generatore di numeri 
casuali cosicché produce una differente sequenza di numeri ogni volta che 
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viene iniziato il gioco. La linea 150 definisce una funzione per i numeri ca¬ 
suali. Dato il parametro X, viene prodotto un numero casuale tra 0 e X. Que¬ 
sta funzione fa risparmiare spazio di programmazione perché viene usata 
ben 5 volte (linee 190, 210 e 220) con parametri differenti. 


10 REM ** BUCO NERO ** 

20 PRINT"3":POKE53280,6:P0KE53281,0:G=1024:H=55296: 

V=53248:S=54272 

30 P0KE52, 48 :PQKE56,48 

40 FORJ=0TO38:RERDX:POKE12288+J,X:NEXT 
50 FORJ=0TO23:POKE12338+J,0:NEXT 

60 POKE2040,192:POKEV+28,1:P0KEV+37,10:POKEV+0,13:POKEV+39,0 
70 GOSUB1500 

80 POKES+3, 8 :POKES+14,164:POKES+18,32:POKES+24,143 
90 FR= 10000 .-POKES+5, 133 :POKES+6,240 
100 PRINT“Za" 

110 INPUT” LIVELLO DI GIOCO <1-10>";L$ 

120 L=VRL<L$> 

130 IFL<1ORL>10THEN100 

140 X=RND<-TI> :N=1 :L=< 10-0/2 

150 OEF FNR<X> = INT<RNO<1>#<X+1>) 

160 PRINT” 33":POKEH+38,7 :POKEH+39,7 
170 POKE53280,0 :P0KE53281,6 
180 F0RJ=1T025 
190 PRINTSPC<FNR<60> 

200 NEXT 

210 R=FNR<24>:C=FNR<39> 

220 RC=FNR(24>:CC=FNR<39> 

230 IFRBS< R-RC > <130RRBS< C-CC)<21THEN220 
240 POKEV+21,1 
250 GOSUB1050 
260 TI*="000000" 

270 P0KEG+38,RSC<MID*<TI*,5,1>> 

280 P0KEG+39,RSC<RIGHT*<TI*,1>> 

290 IFVRL< RIGHT*< TI$,3> > =100THEN690 
300 GOSUB900 

310 POKEV+37,0:P0KEV+38,13 
320 FORK=0TO5#L:NEXT 
330 GOSUB900 

340 POKEV+37,10:POKEV+38,0 
350 FORK=0TO150:NEXT 
360 GET R$ 

370 IFR*=”;"THENRC=RC-N 
380 IFR*="/”THENRC=RC+N 
390 IFfl*="Z"THENCC=CC-N 
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400 IFA*="X"THENCC=CC+N 
4IM GOSUB1000 

420 RA=ABS<R-RC>:CA=ABS<C-CC> 

430 IFRR<2ANDCR<2THENT$=RIGHT$<TI$,2>:GOTO520 
440 IFRA>12ORCA>20+LTHENN=1:GOTO270 
450 N=3 

460 IFRA<6THENRC=RC+SGN<R-RC > 

470 IFRAC13THENRC=RC+SGN<R-RC) 

480 IFCA<11THENCC=CC+SGN<C-CC) 

430 IFCft<21+LTHENCC=CC+SGN<C-CC> 

500 GOSUB1000 
510 GOTO270 

520 PRINT" : P0KE53281,0: GOSIJB1500 

530 POKES+24,15:POKES+6,248 :PGKES+4,129 

540 FORFQ=10TO20000 STEP100 

550 HF= INT< FQ/256) :LF=FQ-HF*256 

560 POKES,LF:POKES+l,HF 

570 NEXT 

580 POKEV+21,0:GOSUB1500 
590 SC=INT<SC*60/VAL<T*))-10 
600 IF SC>BSTHENBS=SC 

610 PRINT" «TO»H IL TUO PUNTEGGIO E'" ;SC 
620 PRINT" «m iL MIGLIOR PUNTEGGIO E'”;BS 
630 PRINT" :a»»I IL TEMPO IMPIEGATO E' ,, ;T*;" SEC." 
640 PRINT" :<MBtBW BATTI SPR2I0 PER CONTINUARE" 

650 SC=0 

660 GET A$:IFR$0" "THEN660 

670 PRINT"3":P0KE53281,6 

680 POKEV+21,0:GOTO60 

690 PRINT"3":POKE53280,7 :P0KE53281,6 

700 POKEV+21,1:POKEV,174:POKEV+1,200 :POKEV+38,13 

710 POKES+6,252 

720 GOSUB900 

730 FORK=ITO1000:NEXT 

740 GOSUB1500 

750 T*="60" 

760 PRINT"a" :GOTO600 

900 FQ=FR+PEEK<S+27>*4 

910 HF=INTCFQ/256):LF=FG-HF*256 

920 POKES+4,33 

930 POKES,LF:PQKES+1,HF 

940 POK.ES+4,32 

950 RETURN 

1000 IFRC<0THENRC=0 

1010 IFRC>24THENRC=24 

1020 IFCC<0THENCC=0 

1030 IFCC>39THENCC=39 

1040 X=CC*8+16 : V=RC*8+50 

1050 POKEV+16,INT <X/255) 

1060 POKEV,X-1NT < X/255)*255 
1070 POKEV+1,V 

1080 Z=CC+40*RC:IFPEEK<G+Z)=81THENSC=SC+N:P0KEH+2, 
1090 RETURN 

1500 FORJ=0TO24:POKES+J,0:NEXT:RETURN 


2000 DATA0,168,0,2., 170,0,10,186,128 
2010 DATAI70,170,168,153,185,152,170,170,168 
2020 DATA34,186,32,1?0,170,168,153,185,152 
2030 DATA170,170,168,10,186,128,2,170,0.0,168,0 
READY. 


Variazioni 

Se sei capace di definire la tua grafica, le pepite possono avere una forma 
diversa. Per aggiungere interesse, possono venire configurate in due o tre 
forme o colori differenti con punteggi diversi. 

C’è un’infinità di modi per variare il punteggio. Un’alternativa iniziale po¬ 
trebbe essere quella di eliminare il tempo e tentare di raggiungere il punteg¬ 
gio più alto. Quando un numero dato (diciamo 15) di pepite è stato raccolto, 
un nuovo rifornimento può essere aggiunto tornando alle linee 180 e 200. Un 
giocatore abile può raggiungere punteggi altissimi prima di venire risucchia¬ 
to nel Buco Nero. 
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CAPITOLO 2 

FUNAMBOLO / 


|l I I I I | 



La scena è al suo culmine, con una fune tesa tra i due pali del tendone. La 
folla attende di sotto con II fiato sospeso che inizi la tua passeggiata. Ondeg¬ 
giando inizi la traversata. Ci sono 31 passi per andare da una piattaforma al¬ 
l’altra. Il sincronismo è essenziale. Se fai un passo mentre sei troppo sbilan¬ 
ciato in una direzione potresti perdere l’equilibrio e cadere. 


Come giocare 

La prima cosa che viene chiesta è il livello di gioco. Il livello numero 1 è il 
più facile. Più alto è il livello e più difficile è mantenere l’equilibrio. La cosa 
più importante è che più alto è il livello di gioco più si riduce l'angolo di tolle¬ 
ranza del moto ondeggiatorio del funambolo, nel senso che potrai cadere 
anche ondeggiando poco. 
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Quando hai digitato il livello di gioco e premuto RETURN, viene visualizza¬ 
to sullo schermo l’interno del tendone con le teste degli spettatori, appena 
visibili, spuntare sopra l’anello centrale del circo. Il funanbolo attende sulla 
piattaforma di sinistra. 

Hai 3 tasti per controllare gli spostamenti del funambolo: 

S fa avanzare il funambolo di un passo (attenzione che non si può tor¬ 
nare indietro). 

Z Sposta l’equilibrio del funambolo sulla sinistra. Questo effetto è cu¬ 
mulativo: più volte viene premuto il tasto Z, più l’equilibrio dei fu¬ 
nambolo viene spostato a sinistra. 

X Sposta l’equilibrio del funambolo sulla destra. 

Scegli il momento con attenzione, premi il tasto S, e sarai presto fuori da 
questa situazione pericolosa. 


Tattiche vincenti 


Se sei il tipo di persona che ama il rischio e se pensi di potercela fare, 
scegli un alto livello di gioco. Cerca di fare più passi possibili prima di cade¬ 
re. Quando cadi, sul video compare il numero di passi che hai fatto ed il nu¬ 
mero record dei passi che finora sono stati fatti nel corso della partita. 

In alternativa, cerca di compiere la tua ‘passeggiata’ nel minor tempo 
possibile. Scegli un livello di gioco né troppo facile né troppo difficile. Alla fi¬ 
ne verrà dato il tempo della tua traversata ed il tempo record delle traversate 
compiute. 

L’ondeggiamento regolare, che puoi notare prima di iniziare a camminare, 
non è sufficiente per farti cadere dalla fune, anche a livello 10. Se altri effetti 
sono aggiunti a questo ondeggiamento (pressione del tasto Z o X) nel mo¬ 
mento sbagliato possono rapidamente sbilanciarti. Il funambolo inizia sem¬ 
pre a camminare con il piede sinistro. Ciò causa uno sbilanciamento sulla si¬ 
nistra. Perciò attenzione nel fare il primo passo quando sei sbilanciato a sini¬ 
stra. Il camminare causa una seconda oscillazione che si somma a quella 
costantemente presente, ma questa graduatamente scompare e sei pronto 
ad affrontare il prossimo passo. 

Se stai invece provando a compiere la traversata nel minor tempo possibi¬ 
le, tutto sta nel saper scegliere la prima occasione propizia per affrontare il 
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passo successivo. Modificare l’equilibrio è utile per ridurre l'ondeggiamento 
ingoiare quando si vuole compiere un passo. Anche il tempo è però impor¬ 
tante. Modificare l’equilibrio nel momento sbagliato può essere disastroso. 

Inizialmente vi è un forte effetto che va attenuandosi. Questo può essere 
ulteriormente ridotto usando i tasti Z e X. 

La brezza modifica il tuo equilibrio in maniera casuale e discontinua. I 
suoi effetti non sono però molto evidenti, ma aumentano l’interesse del gio¬ 
co. 


Digitazione 

Le linee 170, 210 e 250 sembrano particolari. Queste sono le istruzioni 
PRINT per il video. È essenziale digitarle esattamente come sono listate, al¬ 
trimenti ti troverai davanti una strana immagine video. Non preoccuparti per 
i caratteri R e Z presenti in queste linee. Non appariranno come lettere ma 
come blocchi rispettivamente bianchi e rossi. Tutto ciò perché il programma 
ridefinisce il tasto R come spazio ed il tasto Z come blocco colorato. 


I caratteri di controllo usati sono: 


CLEAR: 

CTRL-7: 

CRSR DOWN: 
CRSR RIGHT: 
CTRL-3: 
CTRL-1 : 
CTRL-5: 
CTRL-6: 


linee 40, 80, 680, 740 

linee 80, 170(2), 210(2), 250 

linee 80, 700(3), 720(2), 760(3), 770(2), 780(5) 

linee 80(2), 700(2), 720(2), 760(2), 770(2), 780(5) 

linee 170(3), 210(2), 250(6), 760 

linea 250(7) 

linea 270 

linee 270, 780. 


Sezioni del programma 

20-110 Inizializzazione. 

120-160 Assegna i rispettivi valori alle tabelle, A( ) per l'ondeggiamento 
regolare, S( ) per gli effetti causati dal passo e B( ) per gli effet¬ 
ti temporali della correzione dell’equilibrio. 


170-280 


Visualizza l’interno del tendone. 



290-320 Stampa una riga di 'invisibili' (bianco su nero) frecce lungo la 
parte bassa del video, pronte per il lampeggiamento. La freccia 
centrale è rossa. 

330-360 Visualizza il funambolo con le braccia alzate, sulla piattaforma di 
sinistra, e la fune. 

370 Azzera l’orologio. 

380-670 Genera il movimento in quattro fasi. 

680-730 Inizio della routine finale che segue un’attraversata fortunata e 
che continuerà con la linea 780. 

740-770 Routine finale che segue la caduta. 

780-800 Invito al giocatore di provare ancora. 

1000-1002 Subroutine per il controllo della caduta. 

2000-2060 Subroutine per il ricevimento dei comandi dalla tastiera e calcolo 
degli effetti. 

3000-3050 Esegue modifiche per l’animazione della figura del funambolo. 

4000-4070 Istruzione DATA per le tabelle del controllo del movimento. 

5000-5040 Istruzioni DATA per i caratteri grafici speciali. 


10 REM ## FUNAMBOLO ## 

20 G=0 : H=0 ; D=0 : PD=0 : S=0 : B=0 : BP=@ 

25 P0KE13500,0 : P0KE13501,255 : POKE13502,255 

30 W=0:NS=0:FF=0:P0KE649,1 

40 PRINT"D" : PQKE53280,7 :P0KE53281,1 

50 P0KE52,48 : P0KE56,48 : CLR ■ P0KE56334, PEEK < 56334 > AND254 : POKE 1, 

PEEKCDAND251 

60 F0RJ*0T0111 :RERDX : POKE12416+J,X : NEXT 
70 POKE1,PEEK <1> 0R4:P0KE56334,PEEK < 56334)OR1 
80 INPUT"IKWWLIVELL0 DI GIOCO " iL$ 

90 L=VRL<L*>: IFL<10RL>10THEN80 

95 MS=PEEK<13500>:FT=PEEK(13501> +PEEK<13502>#256 

100 PRINT"D"; : P0KE53272,< PEEK < 53272 > RND240) +12 

110 DIMRC24),B(24),S(24> : G=1024 : H=55296 LR=-1 

120 FORJ=0TO24 

130 RERDR(J > 

140 REfiDSCJ) 

150 RERDB(J) 

160 NEXT 

170 D*=" aEZZSERRfCZZRRRZZZRRRZZZRRRZZZRRRZZZRRRSZfSCZZ " 
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HJKJ-0TQ5 
l'RIHTDf ; 

ri-’lM r 11 7?!g777P«??ZRRRZZZRRRZZZRRRZ2ZRRRZZZRR3ZZZSEZ " 

FORJ-0TO13 • • 

PRINTD$; 

l-'RINT"B[ L [ [RCISZlC CRT. CCHEZlC L l C [*C*C [RCiaCiCC C CCSEiCC-SE 

FORJ=0TO39 

PRINT"*Zii£"; 

NEXT 

FORJ=0TO22 
PQKEG+968+J .■ 29 
NEXT 

POKEH+'l64^. 9 : POKEH+204,9 • POKEG+164.16- POKEG+204, 17 

POKEH+J?!"POKEG+J.18-POKEH+J+40.9 : POKEG+J+40,19 
NEXT 

TI$="000000" 

J=0 

ri=fi ( J > +S#S C J ) +B*B < J > +BP+W 

GOSUB1000 

IFFF=1THEN740 

J=J+1:IFJC25THEN390 

GOSUB2000 

IFNS=31THEN680 

J=0 

L=fi< 24-J > +S#S< J)+B#B < J > +BP+W 

GOSUB1000 
IFFF=1THEN740 
J=J+1:IFK25THEN460 
GOSUB2000 
IFNS=31THEN680 
J ~0 

D=-fl < J > +S*8 < J > +B*B < J > +BP+W 

GOSUB1000 

IFFF=1THEN740 

J=J+1^IF JC25THEN530 

GQSUB2000 

IFNS=31THEH680 

J=0 

D=-fl < 24-J ) +S*S < J > +B*B < J > +BP+W 

GOSUB1000 

IFFF-1THEN740 

J=J+1:IFJ<25THEN600 

GOSUE2000 

IFNS=31THEH630 

W= < L- 1 > * a NT < P.ND( n *7 ) -3 ) 

PRINT" : P0KE53280.6 : P0KE53281 > 9 ; P0KE53272.21 

PRI NT" MW#| T TRAVERSATA COMPLETA IN "/TI" SECONDI' 

IFT<FTTHENFT=T . _ „ „ rnkmT , 

PRINT"MWWIIL MIGLIOR TEMPO E ".FT. FECONDI 

PRINT"rr : POKE53280.4 : P0KE53281.13 : PQKE53272.21 



750 IFMS<MSTHENMS=HS 

760 PRINT"WMi»ÌBEI CfiDUTO DOPO ";NS," PRSSI" 

770 PRINT"MKWfTENTATIVO PIU' LUNGO =";MS;" PASSI" 

780 PRINT"6£«tìi>Itì!*MM»IBATTI SPAZIO PER CONTINUARE" 

790 GETR$IFA*0" "THEN790 

795 POKE13500,MS POKE13502/INT<FT7256> : POKE13501,FT-PEEK C13502) 

*256 

800 RESTORE : CLR• GOTO40 

1000 I FflBS<: D> >200-7*LTHENFF= 1 

1010 POKEH+979+PD/20,1 :PQKEH+979+D/20,2'PD=D 

1020 RETURN 

2000 S=S*~.5 

2010 IFBO0THENEP=BP+10*SGN<B> B=0 
2020 GETA$ 

2030 IFR$="S"THENS=LR:LR=-SGN(LR) : NS=NS+1 : GOSUB3O00 
2040 IFR$="X"THENB=1 
205G IFR$="Z"THENB=~1 
2060 RETURN 

3000 P0KEG+163+NS, 22 : P0KEG+164+NS, 24 '• POKEG+203+WS, 23 : POKEG+204 

+NS,25 

3010 P0KEH+164+NS,9 :POKEH+204+NS,9 
3020 FORK=1TO4O0:NEXT 

3030 POKEG+163+NS,18:POKEG+164+HS,20 :POKEG+203+NS,19:POKEG+204 

+NS,21 

3040 IFNS-31THEHPOKEG+195,16:P0KEG+235,17:FORK=1TO5000:NEXT 
3O50 RETURN 

4000 DATA129,153,189,153,90,60,24,24,24,24,36,36,36,36,102,255 
4010 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255 

4G20 DATA0,48,96,120, 112,34,25,160,160,32,80,72,72,72,108,255 
4t33U DAT A3,6, 7, 39,18, 15,2,2,2,5,4,4,4,4,2,255 
4040 DATA©,0,128,0,0,0,128,64,32,128,64,123,123,64,0,255 
4050 DATA255,255,255,255,255,255,255,255 

4060 DATA0,60,60,126,126,60,24,24,24,60,126,255,255,126,60,24 

4070 DATR24,126,219,153,24,24,24,24 

5000 DATR3,2,25,9,12,46,16,21,50,22,30,49,28,38,47 

5010 DATA34,46,44,40,55,41,45,60,37,51,65,33,56,69,28 

5020 DATASI, t 2, 25,66, 74,23, 71,75,21, ^5,74, 18, 79, r'2, 17 

5030 DA f A83,69,15,86,65,13,89,60,12,92,55,17,94,46,11 

5040 DATA96,38,10,98,30,10,99,21,10,100,12,10,100,2,10 

READY. 


Variazioni 

Il valore in linea 1000 può essere alterato per variare il raggio dei livelli di 
gioco. Se la variabile LR fosse modificata in —1,2 o anche meno (linea 110) 
ciò assegnerebbe alla variabile S un valore compreso tra —1,2 e + 1,2 incre¬ 
mentando così l’interferenza nell’equilibrio del funambolo. 
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l'nr aumentare l’elemento fortuna incrementa, nella linea 660, il fattore 
Un//,! che trovi nella variabile W. Infatti l’espressione ’INT (RND(1)*7) 3' 
r segna un numero causale tra —3 e +3. Per ottenere dei numeri tra -X e 
» X bisogna sostituire il ’7’ in ’2*X+1' e il ‘3’ con la ‘X’. 

C'é la possibilità di ottenere il massimo dal chip del suono del Commodore 
64 Un rullo di tamburi, prima che inizi la traversata e ad ogni passo perico¬ 
loso, un’ovazione trionfante alla fine della passeggiata, e l'applauso della fol¬ 
la aggiungerebbe realismo al gioco. 




CAPITOLO 3 

PUZZLE / 


Hai mai sentito la storia di quel povero vecchio ometto? Questo è ciò che 
accadde. 

Humpty Dumpty era seduto su un muro. 

Humpty Dumpty cadde e fece un grande ruzzolone. 

Tutti i cavalli del Re e tutti gli uomini del Re 

non avrebbero potuto permettere Humpty Dumpty di nuovo insieme. 

La caduta fu cosi rovinosa che nessuno riuscì mai a rimettere insieme tutti 
i pezzi. 


Potresti metterlo in sesto tu? 
Hai solo da provare! 
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Come giocare 


Il puzzle ha 9 pezzi, che compaiono sullo schermo quando dai il comando 
RUN al programma. Essi non sono nel posto giusto ed alcuni sono anche 
sottosopra. 

Quando tutti i pezzi appaiono sullo schermo, vengono suonate due note 
musicali — le prime due note del motivo di Humpty Dumpty — che avvertono 
che il computer è pronto per iniziare. 

Puoi scegliere di fare due cose: capovolgere un pezzo o scambiare di po¬ 
sto un pezzo con un altro. Decidi il numero del pezzo che vuoi capovolgere o 
cambiare di posto e premi il tasto con il numero corrispondente. 

Ora sentirai quattro note - le prime del motivo di Humpty Dumpty. Queste 
segnalano che il computer vuole sapere cosa fare con il pezzo selezionato. 
Se vuoi spostare il pezzo devi premere il tasto corrispondente al posto in cui 
vuoi collocarlo. Se vuoi invece solo girarlo, dovrai premere un tasto qualsiasi 
che corrisponda ad una lettera. 

Prima di iniziare a ricomporre il nostro ometto, prova a spostare o girare 
qualche volta i pezzi. Non ti preoccupare, non è possibile smarrire le tessere 
di questo puzzle. 

Ora cerca di scoprire l’esatta collocazione di ciascun pezzo. Colloca, uno 
per volta, i pezzi al proprio posto. Assicurati che siano tutti nel giusto verso. 
Quando tutte le tessere saranno al posto e nel verso giusto vedrai i pezzi del¬ 
l’ometto finalmente riunirsi e per compensarti ti verrà suonato l'intero moti- 
vetto. 

Se vuoi ascoltare nuovamente il motivo, premi un tasto qualsiasi. Puoi 
cosi sentirlo quante volte vorrai. 


Tattiche vincenti 

Il cielo è blu così cerca i pezzi che potrebbero avere delle parti di cielo e 
posizionali in alto nello schermo. 

Il prato è verde così cerca di posizionare le tessere colorate di verde sulla 
parte bassa del video. 


Digitazione 

Qualche genitore o parente più grande, come un fratello o sorella, potran¬ 
no digitare il programma per fare giocare i più piccoli. Potranno anche leg¬ 
gere l’introduzione per poi spiegare loro il gioco. 
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I c .11 alimi di controllo sono: 


SHIFT-CLEAR: linea 20 


Sezioni del programma 

30-210 Inizializzazione, visualizzazione delle tessere del puzzle. 

220-250 Controllo affinché tali tessere siano al posto giusto e nel verso 
giusto. Se il controllo è positivo si passa alla routine finale in li¬ 
nea 460. 

260-330 Richiesta di dati. 

350-390 Sostituzione di due tessere. 

400-450 Capovolgimento di un pezzo. 

460-500 Visualizzazione di tutte le tessere che messe insieme danno la fi¬ 
gura finale. 

510-540 Esecuzione di tutto il motivetto. 

900-910 Subroutine di calcolo per l’indirizzo RAM dell’angolo in alto a si¬ 
nistra di ogni tessera. 

1000-1050 Subroutine per visualizzare una tessera nel verso giusto. 

2000-2060 Subroutine per visualizzare una tessera capovolta. 

3000-3040 Subroutine per suonare le prime due note del motivetto (suona le 
due seguenti se non viene inserita prima della linea 3010 l'istru¬ 
zione RESTORE). 

3500-3560 Subroutine usata per trovare l’istruzione DATA per una singola 
tessera e viene chiamata la subroutine necessaria per farla ap¬ 
parire nel video. 

4000-4060 Subroutine di controllo per il generatore di suono. 

5000-5170 Istruzioni DATA per le tessere. 

6000-6040 Istruzioni DATA per il motivetto. 


10 REM## PUZZLE ## 

20 FRINT"IT ^ G=1024:H=55236:S=54272:POKE53280,6'P0KE53231,10 
30 FORJ=0TO25:POKES+J,0 : NEXT:POKES+24,15 :POKES+6,240 :P0KE643,1 


40 F0RP=1T03 

50 N=INT(RND<1> #3 > +1 :F=0 
60 FQRJ=1T03 
70 IFFCJ,0>=NTHEHF=1 
80 NEXT 

30 IFF=1THEN50 
100 F<P,0>=N 
110 GOSUB300 

120 Q= INT<RND( 1 #2> +1 F<P,1>=Q 
130 IFN=1THEN150 


140 FORJ=1TQ43#< N-1):RERDX : NEXT 

150 ONQGOSUB1000/2000 

160 RESTORE 

170 NEXT 

180 FORJ=0TO2 

130 FORK=0TQ2 

200 POKEG+287+9#K+320#J > 49+K+3#J : POKEH+287+3#K+320#J,. 1 

210 NEXT NEXT 

220 FF=1 F0RN=1T09 

23G I FF( H , 0> ONORF <N, 1) 0 1 THENFF=0 


240 NEXT 

250 IFFF=1THEN460 

260 RESTORE:GOSUB3000 

270 GETR$ : IFfi$=""THEH270 

280 :IFP<1ORP>3THEN220 

230 RESTORE ; GOSUB3000 

300 GQSUB3010 

310 RESTORE 

320 GETfif : IFfl$=""THEN320 
330 P=VflL<fl*> RESTORE 
340 IFR=0THEN400 
350 PT=F<P,0> : QT=F<P,1> 

360 F<P,0>=F<R,0> ■¥<,?, 1>=F(R, 1) 
370 F<R/ 0>=PT : F<R.' 1 >=GT 


380 GOSUB3500 

330 P=R■GOSUB3500:GOTO220 

400 I FF <P, 0 > = 1THEN420 

410 F0RK=1TO(F<P,0)-1> #48 :RERDX■NEXT 

420 IFFCP,1) = 1THENF< P.. 1 > =2 : GOTO440 

430 F < P >1) = 1 : GOSUB300 

440 ONF < P >1> GOSUB1000 > 2000 

450 GOTO220 

460 PRINT"IT RESTORE 

470 F0RN=1T03 

48Fi D= 128+240#(INT<<N+2>/3-1 )) +8#<N-1NT<<N-1 > / 3 > #3-1 > 


430 GOSUB1000 
500 NEXT 

510 FORJ=1T03S:GOSUB4000 : NEXT 
52G GETfli : IFR$=" "THEN520 
530 RESTORE:FORJ=1T0432:RERDX:NEXT 
540 GOTO510 
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n ui 11 • ♦ J204K 1 NT < <P+2>/3-1 > > +9* <P" I NT < <P~ 1 > Z3>*3-1 

■ in l-l.lURN 

I nini |"QRL=DTO200+DSTEP40 

UUli F0RM=0TO7 

I ivo REfìDX 

limi POKEG+L+M, 160 

| H40 I 'OKEH+L+Mj X 

111*11.1 NEXT ; NEXT 

in.,n RETURN 

.inni FORL=200+DTODSTEP-40 
70 in FORM=7TO0STEP-1 
.•O.'U REHDX 
.■li :u POKEG+L+M, 160 
71140 POKEH+L+M,X 
i.*50 NEXT : NEXT 


7060 RETURN 

: uOO F0RJ=1T0432 : REflBX:NEXT 

1010 F0RJ=1T02 

J.020 GOSUE4000 

:030 NEXT 

;040 RETURN 

;S00 IFF<P.0>=1THEN3540 
3510 FORJ=lTO<F(P/0)-l>*48 
J520 REBDX „ 

3530 NEXT 
3540 GOSUB900 

3550 GNF <P.1)GOSUE1000 > 2000 

3560 RESTORE 

3570 RETURN 

4000 REflDLF >HF 

4010 POKES , LF : PQKES+1 .> HF 

4020 REfiDX 

4030 POKES+4,17 

4040 FORK=1Td100*X:NEXT 

4050 POKES+4/16 
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6000 DATA195,16,4,31,21,2,209,18,4,96,22,2,31,21,2,30,25, 

2,165,31,2,135,33,6 

6010 DATA31,21,4,30,25,2,96,22,4,49,28,2,30,25,2,31,21,2, 

195,16,2,209.18,6 

6020 DATA31,21,2,96,22,2, 30, 25,2,96,22,2,30,25,2,49,28,2,30, 

25,2,49,28,2 

6030 DATA165,31,2,135,33,4,135,33,1,162, 37 , 1,62,42,2,135,33, 

2 135 r 33 2 

6040 0ATA193,44,2,193,44,2,62,42,2,162,37,2,135,33,2,165,31^ 

2,135,33,6 

READV. 


Variazioni 


È facile sostituire l’intera figura dell’ometto ed il suo motivetto con altri del 
tutto nuovi. Per cambiare la figura segui questi punti: 

1) Disegna una griglia di 24 linee e 18 colonne. 

2) Suddividi la griglia in 9 grandi quadrati, ognuno formato da 8x6 caratteri. 

3) Fai un leggero schizzo del tuo disegno su questa griglia. 

4) Colora i quadrati utilizzando alcuni di questi colori disponibili: 

(0) nero 

(1) bianco 

(2) rosso 

(3) blu-verde 

(4) porpora 

(5) verde 

(6) blu 

(7) giallo 

(8) arancione 

(9) marrone 

(10) rosa 

(11) grigio scuro 

(12) grigio medio 

(13) verde chiaro 

(14) blu chiaro 

(15) grigio chiaro 
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>,) ( inondo hai completato il disegno, su ognuno dei 9 grandi quadrati, scrivi 
In rolatlve istruzioni DATA. I numeri corrispondenti ad ogni grande qua- 
■ ir. ito devono essere infatti 48 (8x6). L’ordine in cui devi scrivere tali nu¬ 
mmi l'ottieni partendo dall'alto a sinistra verso il basso a destra proce- 
rlmido per righe. Devi ripetere questo procedimento per ogni quadrato. 
Alla fine, calcolando due linee di istruzioni DATA per quadrato, dovrai a- 
vere 18 linee di istruzioni da sostituire alle linee comprese tra 5000 e 
f>) 70 del programma. 

il motivetto può essere cambiato sostituendo i valori delle linee comprese 
Imi la 6000 e la 6040. I valori sono di tre tipi 

Bassa frequenza - Alta frequenza (da ricercarsi nell’Appendice M 
del Manuale d’Uso de! 64). 

— Durata. 

Puoi modificare il tempo sostituendo il valore 100, in linea 4040, con qual¬ 
che altro valore. Dovrai anche modificare il valore massimo per la variabile 
I, In linea 510, con il numero delle note del tuo motivetto. 






CAPITOLO 4 

GUARDIE E LADRI 



Questo è un gioco per due giocatori. Un giocatore prenderà la parte delle 
guardie mentre l’altro prenderà la parte dei ladri. Lo scopo delle guardie è di 
rincorrere i ladri attraverso la città e cercare di prenderli prima che si rifugi¬ 
no nel loro covo. 

Le strade della città portano in tutte le direzioni: da Nord a Sud, da Est ad 
Ovest. Le guardie hanno il vantaggio di avere una macchina veloce, ma de¬ 
vono rispettare le leggi del traffico. Agli incroci possono solo proseguire o gi¬ 
rare a sinistra. Svolte a destra o inversioni ad U non sono ammesse. I ladri i- 
gnorano tutte le leggi del traffico, cosicché se anche la loro macchina è più 
lenta, possono muoversi più agilmente. 

Puoi scegliere la velocità del gioco. Alla massima velocità sarà una rin¬ 
corsa per le strade della città da far rizzare i capelli. Giocando a velocità mi¬ 
nori diventa un’interessante gara di strategia. 
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Come giocare 

Il giocatore che manovra i ladri si deve sedere alla sinistra della tastiera, 
I altro giocatore sulla destra. Quando viene chiesto di scegliere il livello di 
velocità del gioco, bisogna digitare un numero da 1 a 10 e poi premere RE¬ 
TURN. Sul video compare la griglia delle strade. L’incrocio di colore porpora 
rivela la posizione del covo dei ladri, che viene direttamente collocato al 
centro della metà alta del video. La macchina delle guardie è blu e compare 
nell angolo in basso a destra. La macchina dei ladri è rossa e viene collocata 
nell angolo in basso a sinistra. Entrambe le macchine, all’inizio dell’insegui¬ 
mento, sono rivolte verso Nord (verso la parte alta del video). Quando si è 
pronti per giocare premere il tasto ’G' ed il gioco ha inizio. Le mosse sono ge¬ 
stite dal computer. Tale gestione è accompagnata dall’alternarsi di due note, 
come una sirena della polizia. Quando viene suonata la nota più alta è il tur¬ 
no dei ladri. Ai ladri spetta sempre la prima mossa. Se non viene dato alcun 
comando durante il tempo concesso la macchina dei ladri (in questo caso) 
viene avanzata di una posizione. Fa parte del gioco ricordarsi la direzione 
verso cui è rivolta la propria macchina. 


I movimenti, oltre I avanzamento di una posizione, sono regolati premen¬ 
do i seguenti tasti: 

Ladri A per svoltare a sinistra 

S per svoltare a destra 
Z per conversione ad U 

‘spazio’ per fermarsi 

Guardie F3 per avanzare di due posizioni 
F5 per svoltare a sinistra 
F7 per fermarsi 

L'effetto di ognuno di questi comandi dura solo per un turno. Puoi notare 
come le guardie abbiano la possibilità di avanzare normalmente (una posi¬ 
zione per volta) non premendo nessun tasto o di accelerare (due posizioni) 
premendo il tasto F3. 

Ora la caccia inizia. I ladri devono raggiungere il loro covo senza farsi ac¬ 
ciuffare dalle guardie. Per prendere i ladri le guardie devono raggiungerli da 
dietro e poi muovere sullo stesso quadretto. Fare attenzione che entrambe 
le macchine devono viaggiare nella stessa direzione. Se le macchine s’in- 
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contrario da diverse direzioni si avrà un incidente mortale e nessuno vincerà. 
Un abile agente deve essere capace di evitare lo scontro sorvolando la mac- 
i bina dei ladri (spostandosi di due posizioni al momento dell’incrocio). 

Il gioco finisce con la fuga (vincono i ladri), la cattura (vincono le guardie) 
o l’incidente. Il quadro finale riporta il numero di mosse che sono state ne¬ 
cessarie per concludere il gioco, eccetto quelle fatte fuori del video. Viene 
.inche fornito il numero massimo e minimo di mosse che sono effettuate per 
concludere le partite precedenti. Si può migliorare il punteggio cercando di 
•■( appare il più a lungo possibile dalle guardie o cercando di arrestare i ladri 
noi più breve tempo possibile. I giocatori si alternano nel prendere le parti 
(lolle guardie e dei ladri. 


Tattiche vincenti 

L'equilibrio tra il vantaggio della velocità delle guardie e la libertà dei mo¬ 
vimenti dei ladri rende questo gioco interessante. Le guardie dovrebbero evi¬ 
tare di svoltare a destra quando sono vicine alla periferia della città. Svoltare 
a destra comporta ripetere più volte una svolta a sinistra e ciò può portare 
oltre i limiti cittadini, dove è facilissimo perdersi. 

Uscire dal video dà ai ladri la possibilità di uscire dalla visuale e portarsi 
clandestinamente ad un punto fuori dai limiti cittadini, molto vicino al loro 
covo. Il pericolo di questa strategia è che un movimento falso può portare la 
macchina fuori dalla giusta strada, nella direzione sbagliata. I ladri non han¬ 
no alcun vantaggio a perdersi nella campagna, poiché le loro mosse non 
vengono conteggiate quando sono fuori dal video. Le guardie non devono ad 
ogni costo uscire dalla città e perdersi, poiché lascerebbero la strada libera 
ai ladri. 


Digitazione 

Il valore della variabile LM, in linea 20, è ‘1E6’ ossia 1.000.000. Questo è il 
numero minimo di movimenti ossia l’assetto iniziale della variabile. 

I caratteri di controllo usati sono: 

CLEAR: linee 50, 660, 770, 800 

CTRL-2: linea 50 

CRSR DOWN: linee 50(2), 660(2), 700(2), 710(2), 720(2), 730(2), 
770(2), 800(2). 
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CRSR RIGHT: linee 50(2), 660(2), 700(2), 710(2), 720(2), 730(4), 
770(2), 800(2) 

Caratteri di controllo non listati: 

C=/1: linee 770, 800 

Sezioni del programma 

20-30 Assestamento variabili. 

40-60 Inserimento velocità di gioco. 

70-200 Visualizzazione strade, covo e macchine. 

210-220 Attesa di inizio. 

230 Controllo della permanenza dei ladri fuori dal video. 

240 Punto di rientro per ogni mossa. 

260-280 Tempo di attesa per la mossa di ladri. 

290 Cancellazione dal video della macchina dei ladri. 

300-330 Analisi del comando per la macchina dei ladri. 

340-430 Nuova posizione della macchina dei ladri. 

460-480 Tempo di attesa per la mossa delle guardie. 

490 Cancellazione dal video della macchina delle guardie. 

500-530 Analisi del comando per la macchina delle guardie. 

540-630 Nuova posizione della macchina delle guardie. 

650-660 Messaggio della fuga dei ladri. 

670-720 Calcolo e visualizzazione delle mosse. 

730-750 Invito a ripetere il gioco. 

760-780 Messaggio della cattura dei ladri. 

790-810 Messaggio dell’incidente mortale. 

1000-1020 Subroutine per controllare che la direzione dei ladri (RD) non su¬ 
peri il ‘3’. 
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I 100 1110 Subroutine per controllare che la direzione delle guardie (CD) 
non superi il ‘3’. 


IH REM#*GURRDIE E LADRI*4: 

,'U 0=1024: H=55296 : C= 160 : B=219 ■ 3=54272 : LM= 1E6 
ni FORJ=0TO24 : P0KES+J, 0 : NEXT „ 

Hi POKES+24,15 : F'OKES+5,18 : POKES+6,242 ; POKE53280.' 5 : P0KE53261, S 

:M=0 :MC=0:P0KES+3,1 


Mi INPUT"DaWKW/ELOCITA' <1 -10>";At 
<ii L 1l-VALCfl$) IFL<10RL>10THEN50 
,n fRINT"IT P0KE53281.7 
ini I ORK=0TO999 : POKEK+G/B : POKEK+H,0 : NEXTK 


I „'i i HX= INT <RND< 1 )*21 > +10 
I :n HV=INT < RND <1)*12 > 
ini POKEH+HX+HY*40,4 
1M1 RM=0:RX=0:RV=24:RD=9 
160 CM=0:CX=39:CV=24:CD=0 
I/O RP=960 : POKEG+RP, C 
Imi POKEH+RP,2 
I ni CP=960 : POKEG+CP , C 


mi POKEH+CP, 6 
-in GETR$ ; IFA$=""THEN210 

220 I FR$0 " G " THEN210 = , 

ih IFMC=31THENMC=0 : POKES+4,64 : POKEG+CP - B ; F'OKEH+CP.. 0 ■ OOTUIjO 


-’40 J«0' M=M+1 

.'50 F’OKES+4 - 64 : POKES, 135 : POKES+1,33: POKES+4,65 
.'i.H GETAì: : IFA$=" m RNLJ<20ìHLTHENJ=J+1 : GOTO260 
zìi IF t=20*LTHENRM= 1 :GOTG290 
,'ì: il IFA$<>"A"ANDATO"2"RNDR$0"S"RNDAfO" "THEM260 
•ii POKEG+RP, B : POKEH+RP, 0 
iO0 IFA* s "A"THENRH=1 : RD=RD+1 : GOSUB1000 
in IFA$»"Z"THENRM=1 : RD=RD+2 : GOSUB1000 
J.'D I FH$= "S"THENRM= 1 : RD=RD~1 : GOSUE1000 
; in ir H$=" "THENRri=0 
i-IO 1 FRD=0THENRV=RV-RM 

Mi ifrd=ithenrx=rx-rm 
:..|| I FRD=2THENRY=RY+RM 
,n IFRD»3THENRX=RX+RM 
imi ii r;:=hxandrv=hvthen650 

.mi I FRX«CXANDRV=CVANDCDORDTHEN790 
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400 IFRX<0ORRX>39ORRY<0ORRY>24THENM=M+1 :MC=MC+1 : GOTO440 
410 RP=RX+RY#40 
420 POKEG+RC>P 
430 PQKEH+RP,2 


440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 


J=0 

POK.ES+4,64^ POKES,30■POKES+l,25 : :P0KES+4,65 
GETFlf : IFA$=" "ANDJ<20*LTHENJ=J+1 : GOTO460 
tf T=20*L THENCM=1 : GOTO490 

I FR$OCHR$ U 34 ') ANDA$OCHR * < 1 35 ) RNDfif ■OCHR$ <1 36 > THEN460 


POKEG+CP,B : POKEH+CP ,0 
IFCX=HXANDCY=HYTHENP0KEH+CP,4 
IFfi$=CHR$U34)THENCf1=2 : GOSUB1100 
IFA$=CHR$<135>THENCI > t=l : CD=CD+1 GOSUB1100 


IFA$=CHR$<136 > THENCM=0 

IFCD=0THENCY=CV-CM 

IFCD=1THENCX=CX-CM 

IFCD=2THENCY=CY+CM 

IFCD=3THENCX=CX+CM 

IFRX=CXANDRY=CYANDCD=RDTHEN760 

IFRX=CXRNDRV=CYANDCBORBTHEN790 

IFCX<0ORCX>39ORCY<0ORCY>24THEH640 

CP=CX+CY#40 

PQKEG+CP,C 

POKEH+CP,6 


640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 


GOTO230 

POKE53280,2 :P0KE53281,2 
PRINT'TMOTm LADRI SONO SCAPPATI 
POKES+4,64^ PQKES+24,0 
IFMM<MTHENMM=M 
IFLM>MTHENLM=M 


WWiLA FUGA E- DURATA "M" MOVIMENTI" 
SISMLA FUGA PIU' LUNGA E' "MM" MOVIMENTI 
:«fJi»LA FUGA PIU' CORTA E' "LM" MOVIMENTI 
MgKDWiiIBRTTI SPAZIO PER CONTINUARE" 
IFA*<>" "THEN740 


PRINT 
PRINT 
PRINT 
PRINT 
GETAS 
GOTO30 

POKE53280,6 : P0KE53 
PRINT'THIWWII LADRI 


230,6 

SONO 


STATI CATTURATI 


II 

II 


780 GOTO670 

790 POKE53280,2 :P0KE53281,6 
800 PRINT"SCISI» LE GUARDIE E 
310 GGTO670 
1000 IFRD>3THENRD=RD-4 
1010 IFRD<0THENRD=RD+4 
1020 RETURN 

1100 IFCD>3THENCD=CB-4 
1110 RETURN 


LADRI SI SONO SCONTRATI 


READY. 
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Variazioni 


•il possono aggiungere effetti sonori. Per esempio uno stridore di pneum.i 
1 uuando le auto affrontano le curve, rumori di spari quando le auto sono 
vicine e un enorme schianto quando le auto si scontrano. 

Inoltre le linee 150 e 160 possono essere modificate per collocare le mac- 
' bine in posizioni volute o casuali. Le variabili CX, CY, RX e RY sono quelle 
Interessate per tali modifiche. Il limite del numero di mosse (variabile MC), 
permesse ai ladri fuori dallo schermo, può essere modificato nella linea 230. 


31 





















CAPITOLO 5 ^ 

TELECINESI 

t 

PBOWft HR. 11 * 


l : possibile comunicare direttamente con il computer senza usare né la 
•.uà tastiera né il Joystick né nient’altro? Può la tua mente, senza l’aiuto di 
materiale di connessione, influenzare ciò che avviene nell'Interno del Com¬ 
modore 64? La maggior parte della gente direbbe che tutto ciò è compieta- 
munte senza senso, ma altri sarebbero pronti ad affermare con altrettanta 
convinzione che ciò è possibile. Questo è un programma che ti aiuta a met- 
lore alla prova questa affermazione. 

Come giocare 

Il programma è basato sulla scelta di un simbolo grafico come il cuore, il 
disco o i simboli delle carte, tra i dieci presentati sulla parte alta del video. 
Prima che ciò avvenga il computer chiede chi deve scegliere il simbolo da 
Indovinare, se esso o tu. Se premi S sceglie il computer e tu devi indovinare 
quale simbolo ha scelto. Credi di poter indovinare più spesso di quanto sa 
rebbe per pura fortuna? Se sì, sei allora in grado di sapere ciò che sta acca 


dendo nei circuiti del computer o puoi predire quale simbolo apparirà sullo 
schermo prima che sia stato visualizzato. 

Se premi N spetta a te scegliere il simbolo. Seleziona il carattere e poi 
cerca di farlo scegliere al computer. Se ti concentri attentamente potresti 
essere capace di costringerlo a scegliere il tuo carattere. 

Appena hai premuto S o N viene visualizzata la linea dei simboli con una 
^^'3 grigia, al di sotto, che indicherà il carattere selezionato. Puoi muove¬ 
re questa freccia lungo la linea dei simboli premendo il tasto funzione F7. 

° CM0 ,‘; he S ' a '' com P u,er 3 scegliere, cerca di indovinare quale simbolo 
abb.a scelto e muovi la freccia indicatrice sotto quel simbolo. Il computer ha 

'PROv! L° r S ' mb0 '° Che VÌ6ne Stampat0 sul v| deo a fianco della scritta 

Inno n T SÌ PUÒ V6dere PerChé é di Colore 9 ri 9 io chiaro come lo 

ondo. Quando hai fatto la tua scelta, premi il tasto funzione F5 II colore 

del simbolo viene ora cambiato in nero, in modo da renderlo visibile. Se hai 
indovinato il tuo punteggio viene incrementato. 

Dopo poco il simbolo scompare e la scritta cambia in ‘PROVA N 2‘ Sce 
gl. un altro simbolo, o se vuoi mantieni quello precedente, e premi il tasto F5 
Ci sono 100 prove delle quali, per calcolo probabilistico, ne supererai 10 Se 
riesci a raggiungere un punteggio superiore al 15 potrai essere orgoglioso 
opo la centesima prova viene visualizzato il tuo punteggio. Se questo è 
uguale o inferiore a 12 la cosa è normale, ma un punteggio di 15 si verifica 

uouale lfl U d ' eCI (10%> PartÌte ’ U pr0babilità di aggiungere un punteggio 
uguale a 18 o piu e d. solo una su mille (0,1%), Se il tuo punteggio è di que- 

de° computer 0 ' ^ neSCÌ rea ' mente ad influ enzare le operazioni interne 

Se invece rispondi premendo N l'ordine delle operazioni è invertito II 
computer attende che tu abbia selezionato il simbolo. Prima posizioni la 

tasto C F5 SU | S ' m r VOlUt °’ C ° n H taSt ° F7 ’ 6 P0Ì C ° nfermi la tua scelta co " *' 
aste F 5 . || computer a sua volta seleziona e visualizza un simbolo. Concen¬ 
ti pazientemente e potrai essere in grado di costringerlo a scegliere lo 
stesso tuo carattere. 


Digitazione 

I caratteri di controllo usati sono: 

CLEAR: linee 40, 60, 350 

CRSR DOWN: linee 40(2), 60(2), 90(8), 350(2), 360(2), 
430(2), 450(2) 

CRSR RIGHT: linee 40(2), 60, 350(2), 360(2), 430(2), 450(2) 
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I IMI 1 
HOMI : 
i IMI.-2: 


linea 60 
linea 90 
linea 350 


••«Ioni del programma 

40 DO Decisione di chi sceglie il simbolo da indovinare. 

É0'70 Visualizzazione simboli e freccia indicatrice. 

100 910 II computer sceglie un simbolo casualmente- la variabile Q è il 
numero casuale, la variabile D è il codice video del simbolo cor¬ 
rispondente. 

||0 Stampa del simbolo grigio sullo sfondo grigio. 

IMO ;'H0 Selezione di un simbolo da parte dell’utente. 

,«t)0 II simbolo diventa visibile. 

;j 00 Incremento del punteggio se il simbolo è quello scelto dall u- 

tente. 

320 Stampa del simbolo grigio su sfondo grigio pronto per la prova 

successiva. 

:i!)0 Visualizzazione del punteggio. 

KiO 440 Calcolo delle probabilità. 

400-480 Invito a ripetere il gioco. 

1000-1030 Subroutine per muovere la freccia indicatrice. 


tei REM ** TELECINESI ** 

. n 0=1024:H=55296 :S=G+343 :R=H+34--: 

30 POKE532S0, 15 :P0KE53281,15 

40 INPUT"ntiWy'UOI FAR SCEGLIERE BL COMPUTER <S/N>";A* 
50 IFfl*="S"THENF=l 
60 PRINT"Z«SI«1» 

70 P= 161 : POKEG+P30 : POKEH+P , 11 
80 FORJ=1TO100 

90 PRI NT " asMSSBfiMtì PROVO NR.” ?J 
100 IFF=0THEN230 
110 Q=4*INT<RND<1>*10>+161 
120 IFQ=161THENT=90 
130 IFQ=165THENT=86 
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140 IFQ=169THENT=87 

150 IFQ=173THEHT=88 

160 IFQ=177THENT=95 

170 IFQ=181THENT=65 

180 IFQ=185THENT=42 

190 IFQ=189THENT=81 

200 IFQ=194THENT=83 

210 IFQ=197THEHT=91 

220 POKER,15:POKES,T: IFF=OTHEN290 

230 GETfi$ 

240 IFR$=""THEN230 

250 IFR$=CHR*(:135)RNDF=0THEH110 

260 IFA$=CHR*<135 > THEN290 

270 IFfi$=CHR$<136)THENCOSUB1000 

280 GOTO230 

290 POKER,0 

300 IFP=QTHENN=N+1 

310 FORK=1TO4000:NEXT 

320 POKER,3 

330 NEXT 

340 POKE53280,1 :P0KE53281,0 

350 PRINT" snBISI*l PUNTEGGIO: ";H; "SU ";.J -1 

360 IFN< 14THEHPRINT"K(Q CIO' NON E' INSOLITO" :GOTO440 

370 IFN=14THENN=20 

380 IFN=15THENN=1@ 

390 IFN=16THENN=5 
400 IFN=17THENN=2 
410 IFN=18THENN=1 
420 IFN>18THENN=.1 

430 PRINT"WS LR PROBABILITÀ' E' DEL"N"5" 

446 N=0 

450 PRINT"KM BATTI SPAZIO PER CONTINUARE" 

460 GETA* IFA$0" "THEN460 

470 GOTQ30 

1000 POKEP+G,32 

1010 P=P+4 : IFP=201THENP=161 

1020 POKEG+P,30 : POKEH+P,11 

1030 RETURN 

RERDV. 


Variazioni 

Non essere tentato di ridurre il numero delle prove. Un centinaio di prove 
e il mimmo per rivelare qualche valido effetto. Potresti ridurre il numero dei 
s mboh, per esempio a quattro. In questo caso alcune delle linee da 120 a 
210 dovrebbero essere cancellate ed altre modificate. I primi numeri che 
3°TL° n0 ™'' e " n « da 360 a 420 dovrebbero essere sostituiti con: 31.3!. 

'IF N=33 OR N=34 tSen'nÌ 4 S ' ifflende ^ """ 39 ° db '"' ebb ' i 
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CAPITOLO 6 

DITALI 



Questa è una nuova versione del tradizionale gioco del NIM. Questo è un 
uloco per due giocatori. Attraverso gli anni il NIM è stato giocato in una 
grande varietà di modi. Può essere giocato con pile di pietre sul pavimento 
fangoso di una capanna di paglia, con serie di fiammiferi sul tavolo del tinel¬ 
lo, o con dei gettoni su un tavolo da gioco. Questa versione proposta per I u- 
so della grafica Commodore 64 usa dei ditali colorati su di un panno fine¬ 
mente ricamato. 


Come giocare 

Prima di tutto sul video compare il panno sul quale è ricamato un tortuoso 
sentiero che porta alla casa situata in basso a sinistra. Tré ditali, uno turche¬ 
se, uno porpora e l'altro verde,sono disposti casualmente sul sentiero. 

Il computer regola i turni. La prima persona gioca quando il bordo del vi 
deo è marrone. Quando il bordo diviene rosa, significa che è il turno del so 
condo giocatore. Quando è il tuo turno devi muover uno qualsiasi dei ditali. 





























































unn li? S,Z ;° n t e ’ Un9 ° " S6ntÌer0 V6rS0 Casa ‘ Ese 9 ui ^ tua mossa premendo 
uno de. tre tasti, 4, 5, 6 situati in alto sulla tastiera. Questi tasti riportano an- 

premL il asm w ** * Stabilime ' 3 cor ^Pondenza. Quando si 

n ! ■ c °mPuter sposta il ditale sul sentiero di una posizione 

Due ditali non possono occupare la stessa casella ed un ditale non può 
scavalcarne un altro. Comunque il computer non ti permetterebbe di com¬ 
piere queste mosse. Quando un ditale è arrivato a casa viene tolto dal sen- 

Lo scopo del gioco è quello di avere l’ultima mossa. Il nome del giocatore 
e visualizzato alla fine del gioco. 

Per giocare ancora è sufficiente premere la barra spaziatrice. Conviene 
che i giocatori stabiliscano il turno della prima mossa. 

Tattiche vincenti 


Questo è un gioco molto interessante se viene sviluppata una tattica per- 
vincmre 6 '' nSChl ° ^ render '° priv0 d ’ interess e se si dice troppo su come 


Digitazione 

La linea 100 contiene delle lettere ‘0’ non degli zeri. 

I caratteri di controllo usati sono: 

CLEAR: |j nee 20, 920 

h OME: linea 130 

CTRL-4: linea 20 

CTRL-2: linea 920 

CRSR DOWN: linea 920(2) 

Sezioni dei Programma 

20 - 30 Disposizioni delle condizioni iniziali. 

40 - 50 Lettura dei dati per la definizione degli sprites e della grafica. 
60 - 70 Altre inizializzazioni. 

80 -200 Visualizzazione del panno. 

210-230 Calcolo della tabella B% () per il controllo delle mosse. 
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4 in mii '■ .azione delle posizioni casuali dei ditali e controllo sulle posizio¬ 
ni sovrapposte. 

Ofll <400 Visualizzazione dei ditali. 

410 600 Inserimento del comando e controllo della sua validità. 

tini vii) Calcolo delle coordinate delle nuove posizioni assunte dai ditali. 

(Ito Spostamento degli sprites ‘ditali’. 

||0 Otti) Controllo se un ditale è arrivato a casa e preparazione per il tur¬ 
no successivo. 

«imi mi») Arrivo a casa e relativa registrazione. 

010 Controllo se è l'ultimo ditale. 

•?() ‘160 Manifestazioni di vittoria su video. 

uai ‘)90 Preparazioni per una nuova partita. 

1000 1010 Subroutine per la costruzione dell'immagine, 
l'.OD 1520 Subroutine per attivare gli sprites che rimangono in gioco. 
1000-2020 Istruzioni DATA per sprites. 

3000-3070 Istruzioni DATA per la grafica speciale. 

Punti d’interesse 

Il programma usa degli sprites multicolore per i ditali. Hanno in comune 
lutti la stessa forma ed i due colori secondari, ma si differenziano nel loro 
colore principale. Il disegno del panno è costruito con 17 speciali disegni 
grafici, assegnati ai tasti compresi tra le lettere J e Z, attribuiti alle variabili 
D$, E$, F$, G$ (linee 100-120). 


10 REM *#BITALI#* 

20 PRINT'TX" : POKE53280.. 3 : PQKE53281 .• 2 '• POKE649.. 1 
30 P0KE52, 48 : P0KE56.. 48 : CLR 
40 F0RJ=122S3T012350 : READX : P0KEJ,X : NEXT 
50 F0RJ=12368T012502 :READX:P0KEJ,X :NEXT 
60 P0KE53272,(PEEK<53272>RND240>+12 
70 G=1024 :H=55296:V=53248:DIMBX < 2,41> 

80 F0RJ=2TO962STEP40 : P0KEG+J, 10 : P0KEH+J, 3 : POK.EG+J+1, 10 

:P0KEH+J+1>3 





y0 PGKEG+J+34,10 : POKEH+J+34.' 3 : PGKEG+J+35/ i0 •'POKEH+J+35,3 : 

180 Dt="OP3T0P3TOP3TOP3TOPSTOPSTOP" NEXT 

110 Ef=”QRUVQRUVQRUVQRUVQRUVQRUVQR" 

120 F$="WX":G$="VZ" 

130 PRI NT " SJ" : COSUE1000 

140 PRINTTRBOl >F* ■ PRINTTRBOl >G* : GO3UB1000 
3 50 F'RINTl RB<7>F$ ; F'RI NTTflB < 7 )G$ : GQSUB1000 
130 PRINTTflBOl )F$ : PRINTTflBOl >G$ : GGSUB1000 
i 1 0 PR INTTflB< 7 >Fi ■ F'R IHTTflB <7 >G» • G03UB1000 
130 F'R IH j TflB < 31 > Fi ■FRI NTTflB < 31 > GÌ 
i 30 PRINTTflB< 7 >"KLSlGP3TGP3T0P3TGPSTGPST0P" 

400 PRiHTT hB< 7 >"HNUVQRUVQRUVQRUVQRi fVGRUVQR" 

210 FORK=0TO35 3TEP7 ‘ ' ' 

220 FDRL=0TQ6 

K+L>=16 : B'/.c: 1 , K+L)=53+32*K/7 : BX<2, K+L)=l 
ci40 Ncl.k j - NEXT 
250 FORK=0T0283TEP14 
260 FORL=0TO5 


270 BX <&, K+L) =80+32*L : BXC2, K+L) =0 
230 NEXT ■■ NEXT 
230 F0RK-7T035STEF14 
300 F0RL=5TO03TEP-1 

310 BX<0,K+L+1>=80+32*<5-L> =BX(2,K+L+1>=0 
320 NEXT•NEXT 
330 FGRJ=0TG2 


340 T < J, 0 ) = I NT< RNB <1 )*23 > = T < J, 1 = \ 

358 NEXT 

?5® IF T<0, 0>=T< 1,0)GRT<1,0)=T<2,@> ORTO, 0>=TO, 0> THEN340 

370 PUKE2040, 132 : PQKE2041.. 132 : POKE2042.. 132 

380 FORTF-0TO2 : P0KEV+TP*2.. BXO, TCTP,0) ) : PGKEV+TP*2+i / 

330 POKEV+16,<PEEK<V+16)flNDC255-2TTP))+BXo!TXTFX0)>*2TTP: 

408 POKEV+28 , 7 ■ PQKEV+37, 3 ■ F'GKEV+33,1 ; PGKEV+33^ PGK ? e!,?+40 0 . 4 : 


410 P=1 : POKE532S0,3 

420 GE Ffl$ : I FFÌ$= " » THEN420 

430 TP=VBL(flf>-4 

440 IFTP<00RTP>2THEN420 

450 IFT<TP,1>=0THEN420 

460 TN=TCTF0) + l 

470 F=0:FORJ=0TO2 

430 IF T<J,0>=TNflNDJOTPTHENF=l 

430 NEXT 

500 IFF=1THEN420 

510 XS=EX<0, T(TP, 0 > >+BX<2, T<TP.. 0) )*256 
520 XF=BX<0,TN > +BX<2,TN >*256 
530 VS=BX<1,T<TP,0)>:VF=BX<1.TN> 

540 XB=XF~X3 : VD=VF-VS 
550 FORJ=1TO20 
560 X=XS+XB*J/20 

570 V=INT<VS+VD*JX20)+flBS<10-J>-10 
580 Z=INT<X/256> : X=INT <X-Z*256 > 


POKEV+41,5 
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•ivo <>( PEEK<V+16 > AND <255-2 fTP > > +2*2tTP 

§00 I ■•QKEV+TP*2.• X : PGKEV+16/ Z : P0KEV+TP*2+1/ V 

i10 OOSUE1500 : POKEV+28/7 ; NEXT 

».m T<TP/0>*TN 

4,jii IF TN=41THEH800 

4 in IFP=2THEN410 

I«5H P=2 : POKE53280/ 16 

4*0 00TO420 

min FORJ=1IO10 

111M T < TP/1> =0 : G03UB1500 

.imi FORK=1TO50 : NEXT 

11 iu T<TP/1)=1 : GOSUB1500 

n40 FORK=1TO50NEXT 


- ' .u NEXT 

UMJ T TP, 1 > =0 ; GOSUE1500 
§70 F=1 ; FORJ=0TO2 
UGO IFTCJ,1)=ÌTHENF=0 

•U NEXT 

•U0 T(TP,0>=42 
•Hi IF F=0 THEN640 
•Vtì PRI NT " □SWM" : P0KE53272 21 
930 PRINTTHB<8>"IL GlOCATORE N.";F;" 
94i l P0KEV+16 > 0 

•' ni POKEV .• 80 : POKEV+1 .■ 180 : PGKEV+2,160 

mu POKEV+23 / 7 i POKEV+29 .• 7 : PGKEV+2 i, 7 
978 GET A$ : IF A$<>" "THEN970 
9S0 POKEV+21 / 8 ; POKEV+23.. 0 : POKEV+23/0 
990 CLR: GOTO20 

1000 PRINTTAB< 7>D$ : PRINTTftB<7>ET 
1018 RETURN 
1220 RETURN 

1500 X=T <0/i)+2*T U/1)+4*T<2/1 > 

1510 POKEV+21/X 


VINCE" 

POKEV+3 / 1801 F'OKEV+4/ 240 ; 

POKEV+5/180 


1520 RETURN . _ _ 4 

2000 DATfl2/123/0/10/ 160/0/42/168/0/42/ 1 b8.■ 0.• / 1 ( 2.■ 0/^/1 oU/ 

0/29/220/0 

201Ù DATA55/116/0/23/220/0/55/116/0/221/221/0/119/113/0/221/ 

221/0/119/119/0 

2020 DATA221/221/0/ 183/118/0/ 173/218/0/170/170/0/170.. 170/0/ 

42.. 168/ 0/10/160/ 0 

3000 DATA 195/102 .• 60 / 24 .• 24 .• 60/102 / 195 / 255 /132 / 136 /144 .• 168 .■ 137.. 

130/132 

3010 DATA255/33/17/3/21/163/65.• 33/132.. 130/197/160/ 144/136/ 

1 Òdd ■ J • J 

302G DATA33..65/163/21/3/17/33/255/ 255/128/128/128/134 /137/ 

136 f 1 d<d 

3030 DATA255 ..1/1/1/97/45/17/ 33 / 132 .. 130/130/129/128 / 128 .• 128 / 

255 

3040 DATA33/65/65/123/ 1 / 1 /1 / 255/ 0.-0/0/0/56/63/ 130/129 

3050 DATA©/0/0/0/4/2/1/1/128/128/64/32/0/0/0/0 

3060 DATA129/65/34/28/0/0/0/0/3/4/8/0/0/3/0/0 

3070 DATAi92/ 32/16/16/16/32/ 64/128/1 / 2/ 4.. 8.-8/8/4,. 3/ 0/ 00 ■ 0 • 

0/16/32 1 : ' ■ 


READY. 
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Variazioni 


Prova a considerare perdente il giocatore che porta per ultimo il ditale a 
casa. Non è troppo difficile analizzare questo gioco e trovare una strategia 
vincente. Fatto questo c'è un sacco di spazio RAM disponibile per program¬ 
mare il 64 a giocare contro di te - sono sicuro che ti batterà! 
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CAPITOLO 7 

CASTELLI DI SABBIA 



Questo è un altro gioco per i membri più giovani della famiglia. Se è una 
giornata piovosa e non si può andare alla spiaggia, puoi sempre costruire un 
castello di sabbia con il computer. Attenzione però, dovrai finire il castello 
prima che arrivi la marea. 

Come giocare 

Quando il computer chiede “VELOCITÀ ?’’, premi un tasto tra l’1' ed il 
'5'. Se non hai mai giocato prima a questo gioco premi T. Premendo altri 
numeri si lascia lavorare il computer velocemente. Se premi ‘5’ è molto velo¬ 
ce e tu hai bisogno di molta pratica per giocare a questo livello. Quando hai 
scelto la velocità premi il tasto ‘RETURN’. 

Vedrai la spiaggia e presto udrai, appena arriverà la marea, il suono delle 
onde. Dopo che è giunta la prima onda vedrai un bambino sulla spiaggia. 
Quello sei tu, pronto per costruire un castello di sabbia. 

Guarda nel cielo, sopra la testa del bambino, e vedrai un numero. Il piu 
velocemente possibile digita lo stesso numero sulla tastiera e se sei stato 





sufficientemente svelto il bambino inizierà a scavare ed a costruire il castel¬ 
lo di sabbia. La quantità di sabbia scavata dipende dall’entità del numero. 
Più grande è il numero e maggiore sarà la quantità di sabbia scavata per il 
castello, ma più grande è il numero e più veloce devi essere a premere il ta¬ 
sto. Appena il bambino ha scavato la sabbia ed ha iniziato a costruire il ca¬ 
stello, il numero scompare dal cielo. Poi udrai un’altra onda che s'infrange e 
la marea si alzerà un poco. Presto appare un altro numero nel cielo, sempre 
nello stesso posto. Potrebbe essere lo stesso numero di prima sebbene sia 
più probabile uno diverso. 

Cerca il tasto corrispondente e premilo una volta. Se lo hai fatto nel tempo 
giusto il bambino scava altra sabbia ed il castello diventa più grosso. Di con¬ 
tro la marea ogni volta sale di un poco. Questo gioco è una gara a terminare 
il castello prima che la marea lo raggiunga. 

Se una gran quantità di grossi numeri (come 7, 8 e 9) compaiono in cielo 
e tu sei veloce nel digitare i tasti giusti, il castello sarà completato in breve 
tempo. A questo punto una bandierina colorata comparirà sulla cima del ca¬ 
stello ed il bambino si alzerà orgoglioso al suo fianco. Ciò significa che hai 
vinto. 

Se la marea raggiunge il castello prima che sia terminato, lo spazza via e 
il gioco ha termine. Basta premere qualsiasi tasto per ridare inizio al gioco e 
cercare di sconfiggere la marea. 


Tattica vincente 

Più grande è il numero e maggiore è la quantità di sabbia che si aggiunge 
al castello. Cerca di premere il tasto giusto velocemente quando nel cielo 
appare un grosso numero. Fai attenzione a non premere un tasto due volte o 
di premere, per errore, quello sbagliato. 


Digitazione 


Questo è un altro programma che dovrà essere digitato dai genitori o dai 
fratelli più grandi al posto dei membri più piccoli della famiglia. È un grosso 
lavoro! Però l’animazione e gli effetti sonori ricompenseranno per lo sforzo 
richiesto. Le lettere ‘A’ nelle linee comprese tra la 160 e la 200 sono in realtà 
definite come linee di colore, che appariranno in cielo per formare le nuvole 
bianche nella parte alta del video. 
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I caratteri di controllo usati sono: 


CLEAR: linee 20, 160 

CURSOR DOWN:linee 110(2), 160, 180, 210(3) 

CTRL-3: linea 20 

CURSOR RIGHT:linea 110(2) 

CTRL-2: linee 160, 280 

CTRL-8: linea 210 

Sezioni del programma 

20 - 80 Disposizione dei codici per definire dei caratteri in RAM. 

00 -100 Assegnazione delle variabili. 

110-130 Richiesta della velocità. 

140-270 Routine del video iniziale. 

280-290 Arrivo della prima onda. 

300-380 Disposizione dei codici per il colore. 

390-400 Disposizione degli spazi dove si erge il castello. 

410 Rimando alla subroutine 1000 per visualizzare il bambino che 

scava. 

420-440 Visualizzazione in bianco del numero casuale. 

450-470 Attesa limitata per la digitazione del tasto. 

480 Inizio dell’onda successiva. 

490 Rimando alla subroutine 2000 se il tasto premuto è corretto. 

500 Rimando alla fine del gioco se il castello è terminato. 

510-540 Cancellazione del numero e rimando alla subroutine 3000 per 
l'onda successiva. 

550-560 Se il tasto è premuto troppo tardi si passa al numero successivo 
570 II castello viene spazzato via. 

580-590 Attesa per il gioco successivo. 

600-660 Visualizzazione della bandierina e del bambino ritto a fianco <IH 
castello. 


1000-1020 Subroutine per l'animazione del bambino. 

1500-1520 Inizio dell'onda. 

2000-2150 Visualizzazione del bambino che getta la sabbia che va ad ag¬ 
giungersi al castello. 

3000-3070 Visualizzazione dell'onda con effetti sonori. 

4000-4120 Istruzione DATA per la creazione dei caratteri grafici. 


Punti di interesse 


Questo programma usa 36 caratteri grafici definiti. Essi sono assegnati ad 
altrettanti tasti, come nel listato qui riportato, secondo il loro codice: 


1 

(A) blocco di colore. 

2-7 

(B-G) bambino che scava. 

8-16 

(H-P, con G) bambino che getta la sabbia 

17 

(Q) asta per la bandierina. 

18-19 

(R-S) bandierina. 

20-26 

(T-Z) bambino ritto a fianco del castello. 

27 

( ) blocco con onda doppia. 

28 

( £ ) blocco con onda singola. 

29 

( ) cresta dell’onda. 

30-36 

{-$) spazi usati per il castello. 


Gli spazi (eccetto che per i caratteri di codice 32, che è il normale carat¬ 
tere di spazio, riservato per l’uso in numerose routines e per cancellare la 
grafica non voluta) sono usati per il castello di sabbia. Vengono definiti dan¬ 
do il valore zero alle locazioni RAM comprese tra 12528 e 12583. Il castello 
è appunto una pila di questi spazi disposti in maniera tale che quelli in cima 
al castello sono quelli vicino alle locazioni di memoria di partenza. Poiché 
sono inizialmente degli spazi, nessuno li può vedere. Basterà dare il valore 
255, con un’istruzione POKE, nelle locazioni comprese tra 2050 e 2100 af¬ 
finché questi spazi vengano gradatamente trasformati in blocchi di colore 
giallo. Poiché i bytes vengono modificati da zero a 255, la corrispondente a- 
rea video cambia a poco a poco da blu a giallo. In questo modo il castello 
viene costruito gradualmente. 
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Un il giocatore perde, una serie di zeri viene reinserita in questa parte 
ili memoria (linea 570) cancellando i blocchi di colore spazzando via il ca- 

«Inllo. 


113 REM ««CASTELLI DI SABBIR«« Ae - n » 
Z0 PRINT "7X3" : POKE53280,6 : P0KE53281.•7 ■ P0KEj2, 48•P0KE56.48 CLR 
J0 P0KE56334,PEEK (56334)AND254 ; POKE1;PEEK(1)AND251 


40 

*50 

60 

70 

80 

30 

100 

110 

120 

130 

140 

150 

160 

170 

180 

130 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

>380 

390 

400 


FOR J=12296T012303 
FORJ=12304TO12526 
F0RJ=12528T012583 


POKEJ > 255 : NEXT 
READX : POKE J / X : NEXT 
r UP.J “ X I A S..WWW POKE J > 0 : NEXT 

FORJ=0TO79:X*PEEK<53632+J) : POKE12584+J,X :NEXT 
P0KE1 / PEEK( 1 )0R4 : P0KE56334.. PEEK(56334)0R1 
0=1024 :H=55296: 3=54272 :SE=G+920:R=12583 
FORJ=0TO24 : POKES+J.• 0 : NEXT : POKES+24,15 
INPUT"JSKJPI7EL0CITA' (1-5)“ÌLI 
L=VAL(L$) : IFL<0ORL>5THENPRINT"!T : GOTO110 
L=6-L 

P0KE53272 > (PEEK(53272)AND240)+12 
POKE53280,2 : P0KE53281,6 

PRINT"7KW;TAB(15)"AAA" PRINTTAB(12) HAAAAAA 
PRINTTAB(11)"AAflflAflAR" : PRINTTAB(12)"AAAAAAAA" 

PRINT TAB(12)"ARAAAARA" ; PRINTTAB(12) "AAAAA.fi" 

PR I NTT AB ( 3 ) " A A A A " : PR I NT T AB ( 2 ) " A A AA A AA " 

PRINTTAB(2)"AAAAAAAAA" : PRINTTAB(4)"AAAAAA" 

PRINT"WOKil 11 

FORJ=21T03STEP-3 

F0RK=1T0J 

PRINT" " ) '■ NEXT 

FORK=J+1TO40 

PRINT"A"; 

NEXT:NEXT 

PRINT" T '■ GOSUB1500 

SC=27 : GOSUB3000 

FORJ=0TO2 

FOR.K=0TO3 

POKEH+512+J+40«K / 1 

NEXT:NEXT 

POKEH+552,7 

FORJ=0TO4 

FORK=0TO2 

P0KEH+547+J+40«K .■ 7 

POKEG+543 .• 30 : POKEG+588,33 ■ POKEG+589,34 : POKEG+590,33 
POKEG+627,31 : POKEG+628,35 ' POKEG+629.. 36 ; POKEG+630,3-- 


PflKFfi+F.31 


410 GOSUB1000 

420 POKEH+190,1 

430 N=INT(RND(1)«10) 

440 POKEG+190 > N+37 

450 J=0 

460 p =0 : GETAf 
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650 

660 

1000 

1010 

1020 

1500 

1510 

1520 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

3000 

3010 

3020 

3030 

3040 

3050 

306© 

3070 

4000 

4010 

4020 


™ " ^™ENJ-J+ 1 :F=1 :I F J< < 1000*L > / <N+10 :> THEN460 
GUSUB1500 

IFVBL <: fi* > =NfìNDF=0THENG0SI JB200G 
IFR<=12526THEN600 
POKEG+190,32 

IF SC=27THEHSC=28:SE=SE-40 :GOTO540 

SC=27 

GOSUB3000 

FORK=1TO1000 :NEXT 

IFSE>G+640THEN430 

F0RJ=12528T012583 :F'OKEJ,0 :FORK=l TO50 sNEXT :HEXT 
GETR*: IFfl*OCHR*< 32 > THEM580 
RESTORE:PRINT"3" :P0KE53272,21:GOTO20 
POKEG+509,17:POKEH+509,4 

POKEG+469,18:POKEG+470,19:POKEH+469,4:POKEH+470 4 
POKEG+553,32 :POKEG+593,32:POKEG+633,32 
POKEH+552,1 :POKEG+554,32 :POKEG+594,32:POKEG+634 32 
POKEG+511,28 --POKEG+512,21 :P0KEG+551,22 :POKEG+552~23 : 

POKEG+591,24:POKEG+592,25:P0KEG+632,26 P°KEH + 511,1 

POKES+4,128 :POKEG+190,32 :GOTO580 

^I? +553 ' 2:P O KEG+5 54,3:P0KEG + 593,4:P0KEr, + ^4 5 

POKEG+633,6 :POKEG+634,7 

RETURN 

POKES+5,196:POKES+6,186 

POKES,214:POKES+1,28:POKES+4,129 

RETURN 

POKEG+513,8:POKEG+514,9 

POKEG+552,10:POKEG+553,11:POKEG+554 12 

POKEG+529,13:POKEG+593,14:POKEG+594 15 

POKEG+633,16 

FORJ=1TO500:NEXT 

FORK=0TON 

IFR<12523THEN2100 

POKER,255 

R=R-1 

IFR=12551THENR=R-8 
NEXT 

POKEG+513,32 :POKEG+514,32 
POKEG+552,32:P0KEG+553,2:P0KEG+554 3 
POKEG+529,32 :POKEG+593,4 :POKEG+594'5 
POKEG+633,6 

RETURN 

FORJ=0TO38 

P0KESE+J,29:POKEH-G+SE+J,1 
FORK=lTOSO:NEXT 
POKEH—G+SE+J,1:POKESE+J,SC 
IFJ=30THENPOKES+4.128 
NEXT 

POKESE+39 , SC : POK.EH-G+SE+-J , 1 
RETURN 

DRTH0,0,28,62,62,62,31,3,0,0,0,0,0,0,24,4 3 2 > 2 o o p s 

i2 ' 1 « 
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Ili 30 DRTR24,60.-60,126,126,62.28,4,0,0,0,0,0,0,56, 196 
InUi DRTfìO,0,0,96,240,120,240,104,7,28,102,130,6fc.,65,33,33 
li flO DHTfi4,4,4.4,4,4,24,96,0,0,0,4,31,126,252,48,1 f ,23,25, 

97,130,4,8,16 

4060 DftTfil28,0,128,128,64,64,64,32,16,8,8,8,4,4,4,12,48,48, 

48,48,48,48,48 

4070 DHTH63,63,63,48,48,63,63,63,252,252,252,0,0,252,252, 

252,0,0,1,3,23,39,39 

1080 OflTR39,0,0, 128,192,244,244,244,244,35,32,16,15,0,0,0,0 
4098 D0TR192,128,128,240,143,129,129,129 

1100 DRTR5,21,19,16,16,16,16,48,130,130,130,130,66,34,18,18, 

18,18,18,18,19,19 

1110 0RTR19,51,231,219.189,126,231,219,189,126,255,255,255, 

255,231,219,189,126 

4120 DflTR255,219,133,119,251,219,173,118 

READY. 


Variazioni 


Questo programma è nato come gioco, ma vi possono essere ovvie appli¬ 
cazioni educative. Già cosi, può aiutare i bambini a riconoscere i numeri ma¬ 
tematici. Una semplice modifica sarebbe quella di visualizzare anche lettere 
dell’alfabeto. Inoltre può facilmente essere adattato in maniera che visualiz¬ 
zi delle espressioni matematiche come: 

3 + 6 

La sabbia viene aggiunta al castello solo se il bambino digita la risposta e- 
satta. 

Il tempo attuale di attesa per la pressione di un tasto è probabilmente in¬ 
sufficiente. In questo caso basta aumentare il valore 1000 in linea 470. 
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CAPITOLO 8 


BOMBARDIERE 



Sei in missione per distruggere degli obiettivi nemici al suolo. Ma attenzio¬ 
ne! Il loro territorio è fortemente difeso dalla contraerea. La tua missione 
continua finché non vieni abbattuto, ma prima che ciò accada devi colpire il 
maggior numero di obiettivi. Lasciar cadere le bombe al momento giusto è 
già abbastanza difficile, dovendo poi evitare le esplosioni delle cannonate, la 
missione diventa impegnativa. 


Come giocare 

I nizialmente ti viene richiesto a quale livello vuoi giocare. Più alto sarà il li¬ 
vello e più intenso sarà il fuoco della contraerea. A livello 1 hai moltissimo 
tempo per decidere il momento giusto per sganciare le bombe e per evitare 
le schegge delle esplosioni. A livello 10 ti si presenterà un’intensa barriera di 
fuoco e non sopravviverai a lungo se non sei un abile pilota. 

Premi RETURN e sul video comparirà un cielo serale e udrai il ronzio dei 
motori del bombardiere che apparirà sul lato sinistro del video. Puoi renderti 
conto della tua velocità guardando passare gli alberi sotto di te. Nel cielo 
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puoi vedere i lampi della contraerea e le nuvole di fumo delle granate. Se fi¬ 
nisci contro queste nuvole vieni abbattuto. Puoi cambiare quota usando i ta¬ 
sti funzione F5 e F7, posti sulla destra della tastiera. Il tasto F5 fa cabrare il 
bombardiere mentre il tasto F7 lo fa picchiare. Se sali alla sommità del cielo 
puoi evitare più facilmente la contraerea, ma è anche più difficile bombarda¬ 
re i bersagli. Se invece voli troppo basso ti andrai a schiantare contro gli al¬ 
beri. 

Quando sei all’inizio del volo sentirai una rapida sequenza di beeps che 
segnala la mancanza di obiettivi nella zona. Appena i beeps diventano più 
rari significa che ti stai avvicinando all’obiettivo; nello stesso momento appa¬ 
re nell angolo, in basso a sinistra, il numero 9 che andrà decrementandosi 
via via che ti avvicini al bersaglio. Quando starà per passare da 1 a zero il 
bersaglio comparirà sul lato destro dello schermo. 

Per sganciare le bombe occorre premere il tasto F3. Sentirai il lamento 
della bomba che cade e vedrai il lampo sul suolo, proprio sotto il bombardie¬ 
re, e ne sentirai l’esplosione. Se colpisce il bersaglio vedrai lampeggiare l’in¬ 
tero schermo. 

Piu alto si trova il bombardiere quando sgancia le bombe e più tempo que¬ 
ste impiegheranno a raggiungere il suolo. Quindi calcola bene i tempi di 
sganciamento! Se sei quasi in cima allo schermo, ed il numero in basso a si¬ 
nistra sarà circa 2 o 1, dovrai sganciare premendo il tasto F3. 

Presto o tardi verrai abbattuto. Quando ciò accade compariranno sul vi¬ 
deo i risultati della tua missione. 

Tattiche vincenti 

Volare alto è un modo per evitare la contraerea, ma è più difficile colpire il 
bersaglio. Un attacco a bassa quota rende le bombe più efficaci, ma un bru¬ 
sco movimento per evitare una scheggia può farti sbattere contro gli alberi. 
Puoi sganciare bombe quando vuoi. Vale la pena fare un po’ di pratica mi¬ 
rando anche agli alberi che sembrano scorrere sul suolo. Puoi scoprire così 
a che distanza dovrebbe trovarsi l’obiettivo per venire colpito da ogni quota. 
Quando sei diventato un abile pilota cerca di non sprecare bombe e di fare 
sempre centro sull’obiettivo. 

Digitazione 

Il programma comprende due routines in linguaggio macchina per il movi¬ 
mento degli alberi, degli obiettivi e delle schegge che sorpassano il bombar¬ 
diere a velocità elevata. Tali routines sono caricate nella memoria grazie alle 
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Intuizioni DATA delle linee 4000-4050. È essenziale digitare ogni numero e- 
r.ciii. unente, anche un minimo errore può causare effetti stranissimi. 

I a linea 510 è molto lunga. Usa l'abbreviazione per le istruzioni POKE (la 
Intiera P e poi il tasto SHIFT con la lettera 0) quando le digiti. 

I caratteri di controllo usati sono: 

CLEAR: linee 20, 110, 600 

CTRL-2: linee 110, 600 

CRSR DOWN: linee 110(2), 600(2), 670(2), 680(2), 690(2), 

700(2), 710(5) 

CRSR RIGHT: linee 110(2), 600(3), 670(3), 680(3), 690(3), 

700(3), 710(2) 

Sezioni del programma 

20-30 Inizializzazione della maggior parte delle variabili. 

40-50 Formazione dello sprite. 

60 Formazione della routine in linguaggio macchina. 

70-80 Determinazione ampiezza del video e della memoria. 

90-100 Inizializzazione dei video. 

110-120 Richiesta del livello di gioco. 

130-140 Assetto del chip del suono. 

150-170 Costruzione dell’immagine. 

180-190 Assetto dei registri dello sprite. 

200 Assetto dell’orologio. 

210-520 Ciclo principale. 

600-660 Routine di scontro con effetti visivi. 

670-700 Visualizzazione dei risultati della missione. 

710-730 Invito a giocare ancora. 

1000-1020 Subroutine per produrre il suono dell’esplosione. 


2000-2040 Subroutine per visualizzare le bombe che esplodono accompa¬ 
gnate dagli effetti sonori. 

3000-3010 Istruzioni DATA per lo sprite. 

4000-4040 Istruzioni DATA per la routine in linguaggio macchina. 


Punti di interesse 

Il maggior punto d’interesse di questo gioco è la sua alta velocità. Una 
routine in linguaggio macchina si prende cura dello scorrimento dell’immagi- 
ne verso sinistra; un altra cancella la colonna sulla destra prima che sia fatta 
scorrere. Tale colonna è fuori visuale poiché il video, precedentemente, è 
stato ridotto a 38 colonne. 

Per sveltire le operazioni del loop principale, che è in Basic, vengono so¬ 
vente usate delle variabili alle quali sono assegnate delle costanti, per esem¬ 
pio. GB e HB sono le locazioni video del suolo perpendicolari al bombardie¬ 
re. Altri esempi sono la variabile U, per l’unità (=1 ), e 2 per zero. Tutto ciò è 
per velocizzare le operazioni del microprocessore che non deve convertire 
ogni volta un numero decimale in binario. 

Il manuale del Commodore 64 (Programmer’s Reference Guide) riporta 
una sezione sullo ’Smooth Scrolling’. Questo accorgimento non viene usato 
in questo programma perchè è troppo lento. Il libro spiega che è necessario 
usare una routine in linguaggio macchina insieme allo ‘Smooth Scrolling’, 
ma sfortunatamente non fornisce questa routine. La routine nelle linee 4000- 
4020 può essere usata per lo scorrimento dell'immagine da destra verso si¬ 
nistra. Usata in questo programma, fa scorrere le intere 38 colonne video ad 
eccezione delle ultime tre righe dal basso. Per fare scorrere l'intera immagi¬ 
ne bisogna modificare il numero 22 in 25 nella linea 4000. 


10 REM ** BOMBRROIERE «* 

20 PRINT-3":T=0:U=1:2=0:V=53248:G=1024:H=55296:B=0:F=0sV=0 
30 GB-G+852:H8=H+852:FF=80:GS=G+879:GT=G+961:GF=G+80: 


40 FORJ=12288T012323 s RERDX:POKEJ,X :NEXT 

50 FOR J=12324T012350 :POKEJ,0 :NEXT 

60 FORJ=12544T012617 :RERDX:POKEJ,X :NEXT 

70 POKE53270,PEEK<53270>RND247:P0KE649,1:P0KE5 

80 S=54272 :FOR.J=0TO4 :POKES+J,0 :NEXT 

90 V=130:FB=0:BT=0:BD=0 

100 TT=0 :BG=0 :R$=" •• 


HF=H+80 :BHX=0 


2,48:P0KE56,48 
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UH INPUT»IVELLO DI GIOCO <1-10>";L* 

I 20 L=VRL<L$> : IFL<1ORL>10THEN110 

I POKES+24,47:POKES,12:POKES+l,1:POKES+6,143:P0KES+21, 7 : 

POKES+23,1:P0KES+17,1 

I40 POKES+4 ,129:POKES+14,88:POKES+15,115:POKES+20,240 

150 PRINT“3":POKE53280,0 :P0KE53281,6 

160 FORJ=0TO1023 :POKEH+J,Z:HEXT:POKEH+961,U 

170 FORJ=lTO38:POKEG+880+J,102:NEXT 

180 POK.E2040 ,192: POKEV+39,0 

190 POKEV,104:POKEV+l,V:P0KEV+21,1 

200 TI$="000000":POKE650,128 ::L=L/20 

210 E=RND<U>:X=PEEK<V+31> 

220 POKEHB,Z 

230 IFE<LTHENF=RND < U > #760 :POKEHF+F,7 :POKEGF+F,42 :GOSUB1000 
240 SYS<12586> 

250 IFE<.3THENP0KEGS,88 
260 IFB=16THENP0KEGS,160 

270 IFE>.95fìNDFB=2THENB=101:FB=U:TT=TT+U 

280 IFB/10=INT(B/10 > THENPOKES+18,65:POKEGT,B/10+47 

290 POKES+18,64 :1FFB=UTHENB=B-U 

300 IFB=ZTHENFB=Z 

310 GETR$ : IFR$=" "THEN380 

320 IFA$=CHR$ <134 >RN0BG=ZTHENBHX=210-V:BG=U:BD=BD+U: 

POKES+20,248:GOTO370 

330 IFA$=CHR$ <135 > THENV=V-8 
340 IFA$=CHR$<136>THENV=V+8 
350 IFY<ZTHENV=Z 
360 POKEV+U,Y 
370 fl$="" 

380 IFBG=UTHENPOKES+18,64:POKES+15,130+BHXX2:POKES+18,65 
390 SVS <12544 > 

400 IFBG=ZTHENPOKES+18,64 
410 IFPEEK< V+31)=UTHEN600 
420 POKEH+F,0 
430 BHX=BHX-4 

440 IFB=2flNDBHX=ZTHENGOSUB2000 
450 SVS<12586> 

460 SVS<12544> 

470 BHX=BHX-4 

480 IFBG=IJTHENPOKES+18,64:P0KES+15,130+BHX/2:P0KES+13,65 

490 IFPEEK<V+31>=1THEN600 

500 IFB=2flNDBHZ=ZTHENGOSUB2000 

510 IFBG=URNDBHX=ZTTHENPOKEHB,1:P0kEGB,214:P0KES+13,64: 

BG=0:POKES+20,240 :GOSUB100O 

520 GOTO210 

600 PRINT"ZHafflMJ";:POKE53280,0:P0KE53281,2:P0KEV+21,0 
610 FORJ=0TO24 :POKES+J,0:NEXT 

620 POKES+24,15:POKES,200 :POKES+1,2:POKES+5,13:POKES+6,248 : 

POKES+4,129 

630 FORK=1TO1500:NEXT 
640 POKES+4,128 

650 IFY>206THENBRINT"SHRI VOLRTO TROPPO BASSO'!" :GOTO670 
660 PRINT"aSEI STRTO ABBATTUTO!!" 
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s 5 ss:sb^ì?se t 

710 PRINT-MBMHS batti ' ?Pfl-m ; Ìrr.V /60> ’ " SEC °NDI" 

73© GOTO80 IFfì * 0 " " the N 720 JN fìLTR0 VOLO " 

•il - , 5 = p ^ , ®., 0 

2000 POKEHB , LI : POKEGB -214- POKE53280 11 
*010 GOSUB1000:GOSLie 1000 KE 280,U 

2020 BT=BT+IJ 

S• z !POKEOe - 32 !P0KE5328 ® 

4000 DOTA 169,0,133.251 169 a i 255,0,248,12 

4010 0flTA136,145,251, 202' 246 ' 1 * 6 ®' 1 ' 169 '22,170,177, 2 ; 

4020 DATA230,2S2 ?6 ,t« 152 ' 10 5-41,168, 144,241 

4030 DATAlBe^l^Uàs 254 i*9 ,169;40.197,251,208,219,96 

133,253,162,20,169,32, 
-40 DATA202,208,1,96,24,152,105,40 169 144 - d , -- 145 ' 253 

'-tei, ifog, 144 r 24 J 230,254,76 

REAOV. 54,49 
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CAPITOLO 9 


EVASIONE 



Questo è un gioco tradizionale con una differenza interessante: giochi 
contro il computer. Questo conosce le regole del gioco, ma non come si vin¬ 
ce. Inizialmente compierà delle mosse del tutto casuali cosicché avrai buo¬ 
ne probabilità di vincere. Giocando molte volte contro il computer, noterai 
come sbaglierà sempre meno mosse. Infatti impara dai suoi errori e memo¬ 
rizza le mosse vincenti e sarà sempre più difficile batterlo. 

Il gioco è già affascinante nella sua semplicità; giocato poi contro il com¬ 
puter, che è capace di imparare e migliorare, è proprio qualcosa d’insolito e 
appassionante. 


Come giocare 

All’inizio viene disegnato sul video il piano di gioco. Le posizioni sul piano 
sono di due tipi: nere se libere, colorate se occupate. Le linee che congiun 
gono le posizioni segnano la via per muoversi da una posizione all'altra. Il 
computer occupa una sola posizione di colore rosa ed ad ogni turno può of 
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feuuare spostamenti di una posizione in qualsiasi direzione II computer de 

“ d ;„ „rr Pr ° Prie m ° SSR " P, ° 9ram ™ consente dTbarare 
do 4 ì 7 , P ' ,re posizioni ' 'ispettivamente: verde, blu e gialla Quan 

° Z^uo “'T 1 ™ Un ° 01 qUeS,ì ~ ™ - 

P u Anche tu può. muovere di una posizione, ma non verso il basso Inoltre i 
ari segnalmi non possono scavalcarsi ed occupare le stesse posizioni II 
r 9 '° C ° ' n '" ia "f mpre con " segnalino del computer (che da ora in poi chiame 

srrsss rrs ssr *- • ~■ 

co lo e7Z Prlm ° 8 9,PCare ’ Qua " d ° «■» oonrparire i, messaggio ■ II uo 

r;r co d :: P s o c „r; e " seana,in ° pa ~ *- p-i 


Verde tasto 6 
Blu tasto 7 
Giallo tasto 8 


■TÌa C mossa"°iT e riP ° r,atl $Ui ' aS,i slessi Di se9ui, ° " » ia "« Siesta la 
iua mossa? e devi premere uno di questi tasti: 


V diagonale sinistra 
U diritto 

1 diagonale destra 
H sinistra 
J destra 


Devi ricordarti che puoi muovere solo verso l’alto. Non cercare di premere 
altri tasti perche sarebbe inutile. P 


Tu vinci se: 

a) riesci a incastrare il 64 nell’angolo più alto del piano di gioco. 

Il 64 vince se: 

a) raggiunge l’estremo angolo in basso 

b> TI PUP ' P “ m ° 0 ' ,ere ( ° SSia Se 1 ,uoi se 8"*" W *>"° arrivali in cima 
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c) se entrambi i giocatori muovono consecutivamente tre volte, ed ogni vol¬ 
ta ritornando nella posizione precedente. 


Tattica vincente 

Cerca di avere un piano accurato per incastrare il 64, perchè se non cal¬ 
coli bene ogni spostamento il 64 ti potrebbe mettere in condizioni di effettua¬ 
re delle mosse che hanno come risultato solo quello di ritardare la sua vitto¬ 
ria; e soprattutto non avere furia di muovere i tuoi segnalini verso l’alto. An¬ 
che se il 64 ti potrebbe sfuggire non disperare perchè, almeno le prime volte, 
potrebbe anche ritornare sui suoi passi, allora sii tempista e approfittane. 


Digitazione 

Questo programma occupa molta parte di memoria. Così cerca di non in¬ 
serire molti spazi inutili. Le istruzioni DATA contengono informazioni che 
permettono ai segnalini di muoversi da una posizione all altra. Se un segnali¬ 
no si posiziona dove non dovrebbe, cerca l’errore nelle linee comprese tra la 
4000 e la 4050. 


I caratteri di controllo sono: 


CLEAR: linee 20, 1200, 1260 


CTRL-2: 

CRSR DOWN: 
CRSR RIGHT: 
CRSR UP: 
CTRL-REV ON: 
CTRL-REV OFF 


linee 20, 1260 

linee 80(2), 1200(2), 1230, 1240(4) 
linee 270, 1220 (2), 1230(2), 1240(2) 
linee 280, 340, 440, 450, 550 
linee 550, 900, 1170 
linea 550 


Caratteri non listati: 

C=: linea 1200 (dopo il Clear) 

Non omettere gli spazi nei messaggi delle linee 280, 340, 450, 550, 550, 
900, 1170. Essi sono essenziali per i messaggi che andranno ad occuparli. I 
simboli usati nella costruzione del piano di gioco (linee 80 fino a 220) sono 
ottenuti usando i tasti ‘N’, ’M’ e ' unitamente al tasto SHIFT. La riga oriz- 
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zontale, assegnata alla variabile H$ (linea 30,) è ottenuta con la 
dei tasti SHIFT e ‘C’. 


pressione 


Selezioni del programma 

20-270 Inizializzazione e costruzione del piano di gioco. 

280-330 Richiesta del colore del tuo segnalino. 

340-410 Richiesta della mossa. 

420-430 Ricerca del tuo segnalino nella tabella M%(). 

440-450 Controllo sulla validità della mossa. 

460-530 Memorizzazione della tua mossa nella tabella T%(), e controllo 
delle tre mosse di ritorno ripetuto (il 64 vince). 

540 Visualizzazione della tua mossa 

550-560 Controllo se hai ancora delle mosse possibili (il 64 vince). 

570-620 Mossa del 64 e ricerca del 64 nella tabella M%(); controllo se è 

nascosto nell’angolo in alto (perde) o da qualche altra parte (non 
muove). 

630-700 Scelta ed esecuzione di una mossa. 

710-740 Memorizzazione della mossa in U%(). 

750 Se è a casa (l’angolo in basso) il 64 vince. 

760 Tre mosse successive di ritorno (il 64 vince). 

900-980 Memorizzazione di una mossa vincente. 

1100-1190 Memorizzazione di una mossa perdente. 

1200-1240 Visualizzazione dei risultati. 

1250-1410 Disposizione per la partita successiva. 

4000-4050 Istruzioni DATA per il piano di gioco. 


Punti di interesse 

Questo programma usa una tabella definita M%(). | numeri più grandi in 
questa tabella (vedi linee 4000-4050) sono le locazioni nello schermo di ogni 
posizione del piano di gioco. Gli altri elementi della tabella contengono solo 
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numeri più piccoli. Le informazioni relative alle mosse del computo» ■«•no 
aggiunte a questi numeri: '16' per ogni nuovo fatto nel gioco corrente, "A?‘ 
per ogni mossa in una partita persa e ‘64’ per ogni mossa in una partita vinta 
Queste informazioni possono essere utilizzate da un’operazione logica di 
AND. Le linee da 630 a 670, insieme con la subroutine 3000, scelgono le 
mosse casualmente, ma dopo aver applicato certi criteri (CR) in funzione di 
una selezione preferenziale: 

una mossa vincente precedente (CR=64), 
una mossa non ancora effettuata nella partita in corso (CR=0), 
una mossa già effettuata nella partita in corso (CR=16), 
una mossa di una partita persa (CR=32). 

Questo schema permette al computer di distinguere più facilmente mosse 
efficaci da quelle inutili. Questo breve programma non ha certo intenzione di 
competere con le sofisticate intelligenze artificiali. Vi sono molti modi in cui 
il 64 può vincere, e quando vince non ne conosce il perchè, quindi potrebbe 
cercare di vincere in un modo meno facile di quanto sarebbe possibile. Con¬ 
tro un forte giocatore il computer potrebbe vincere solo raramente e quindi 
imparerebbe anche mosse efficaci. Se vuoi insegnargli ad essere competiti¬ 
vo, inizialmente lascialo vincere diverse volte. 


10 REM ** E VRSIOHE '*■+ 

20 PPINT’VJsl" : P0KE53280 > € ■ P0KE53281..8 : BI MMK < SM 1 > .• TV. ( 5,2 ) ■ 

F0KE649.. 1 

30 G -1024 : H=55296 : H$="-" 

40 FORESI TOH 
50 FDRJ=0TO9 
60 PERITI";: < J, K) 

79 MEMI : MEMI 

30 PR t HT"W;TflB(18)"/!\" 

90 ORtHTTRB< 17> " / ! \" : PRIMURE< 16) " / I \" 


1 00 

RETMITRE 1 ' 15) " 

1 

: PRI MURE < 15)Hf 

1 1 0 

FRIMITRE <14)"1 


1 A * 

13G 

PR1MTTPE(14)"1 


! / 1" 

130 

PR!MTTRB<14)"1 


! / 1 " 

140 

PPIMITRE 1 ' 14) " ! 


! / ! 11 : PR I MITRE< 15)HI 

150 

PRI MITRE < 1.4)" 1 


1 \ ! " 

160 

PRIHTTRB<14> " 1 

/ 

! \ 1 " 

1 70 

PRIMITRE(ld)"I 


1 N. 1 " 

i 

PP T kITTnp 1 4 " 1 


1 v.| " ■ PRI MURE ( 15)H'f 

1 00 

PRI MITRE < 15) 

1 

/Il 

300 

220 

PRIMTIREi 1 F) 
PptnTTRB< 18) 

l 

.1/" 

/" : PR I MURE < 17 ) " \ 1 /" 


i 


Ut 


230 

240 

250 

260 

270 

280 

290 

319 

320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 

439 

440 


F0RK=1T011 

P0KEH+MX<9, K>, MX<0, K> 
POKEG+MXO, K>.. 81 
NEXT 

PRINT"M" 

PRINT"IL TUO COLORE 7 
GETC$:IFC$=""THEH290 
C=VftL<C$> 
IFCC6ORO8THEN290 
C=C-1 

PRINT"LA TUR MOSSA? IT 
GETM$:IFM$=""THEN350 

GOTO420 
GOTO420 
GOTO420 
GOTO420 
GOTO420 


1" 


450 

451 
460 
470 
480 
490 
300 
510 
520 


540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 


IFM$="V"THENM=8 : 

IFM$="U"THENM=1 
IFM$="I"THENM=5 
IFM$="H"THEHM=4 : 

IFM$="J"THENM=3 : 

GOTO350 
K=1 

IFMX<0, K>OCTHENK=K+1 : GOTO430 

V=MX<M, K)FINII 15 : IFVO0ANDMX < 0.. V><=0THEN460 

v'=M^ M, K > AND 15 1 FV=0THENPR I NT " MOSSA NON PERMESSA ! 

V==Mv < M, K > AND 15:1 FMX < 0, V ) >0THENPR I NT "POSI z'iONE" OCCUPRTA^ 8 * 

GOTO280 FORJ=0TO4000:NEXT 

FORL=0TO2 

FORJ=5T01STEP-1 

TX<J,L>=TX<J-1,L> 

NEXT 

TX < 0,L>=0 

NEXT 

D=C-5 • Q-=MX(M, K > AND 15 : TX <0, D> =Q 

IFTX<2,D)=QANDTX(4,D)=QANDTX<1,IO=TX<3,D>ANDTXC3, IO 

MX0, K>=0 • PQKEH+MXC9,K>,0:MX<0, MX<M, K>AND 15>=C’ FtiKEH HEM ^ 

PRI NT "MUOVE IL 3 64 ■ 71" +MX'.9,MX< M, lOANIU 5>, C 

FORL=lTO2000:NEXT:K=T 
IFMX < 0,K ><>4THENK=K+1 :GOTO570 

IFK= 1R NDMX<0,2>>4RNDMX<0, 3»4ANDMX<0,4>>4THEN1100 

J C 0 > 2»4ANDMX<0,6>>4RNDMX(0,3>>4THEN700 

I FK= r ANDMX 0,4 > > 4ANDMX < 0, 6 > >4ANDMX < 0,10 > >4 THEN700 

CR=64:GOSUB3000:IFW>0THEN650 

CR=0:GOSUB3000:IFW>0THEN650 

CR=16:GOSUB3000:IFU>0THEN650 

CR=32:GOSUB3000 

IFMX(0 j NK)C0THEN61Q 

MX <0,K>=0 :POKEH+MX< 9,K>,0 

MX<0,NK>=4 :POKEH+MX<9,NK>,4 

X=MX < R,K>AND16 1FX=0THENMX< R,K > =MX ( R,K) +16 

FORJ=5T01STEP-1 

UXCJ)=UX<J-1> 

NEXT 

UX<0>=NK 
IFNK=11THEN900 

IFUX ( 2 > =NK ANDUX ( 4 > =NKANDUX < 1} =UX < 31'ANDUX < 3 ) =UX< 5 > THEN900 
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756 W=0 : FORK= 1T04 : VV=VV+MX < 0, K > : NEXT : IFVV> 1 8ANDMX<0 , 


760 

900 

910 

920 

930 

940 

950 

960 

970 

980 

1100 

1110 

1120 

1.130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 


i " 


GOTO280 

FRINT"VINCE IL S 64 ■ 
FQRJ=1TO3000 : NEXT 
F0RJ=0TO4 
F0RL=1T08 

\M1X(L,UX<J+1>>AND15 
I FV=UJi < J ) THENMX < L .• UX< J+l > >=V+64 
NEXT:NEXT 
VM=VM+1 
GOTO1200 
FORJ=0TO4 
F0RL=1T08 

V=MX < L, IJX< J+1 > > AND 15 

I FV=UX < J > THENMX < L, UX CJ+1)> =V+32 

NEXT 

NEXT 


VL=VL+1 


' 13 

f’INTO", 


VM;"PARTITE" 


FRINT"PERDE IL S 64 ■ 

FORJ=1TO3000 
NEXT 

PRIHT"n’.tìi»ÌI" 

„ F'OKE53280^ 2 : P0KE53281. 

1220 FRINT"IL COMPUTER Hfi V 

1230 PRINT"S»PREMI L SPflZIO PER CONTINUARE" 
GETA$ IFA^O" "TRENI250 o 

PRINT'TJar : POKE53280 > 6 ; P0KE53281/S 
F0RK.= 1T011 
MX< 0,10=0 

MX<0.. 3> =4 ; MX<0*0) =5 : MX<0 , 9)=6 ; MX<0,10 =7 
FORJ=0TO5 
UX<J)=0 

NEXT 

F0RJ=1T08 
FQRL=1T011 

V=MX<J > L>AND 112 : X=HX(J,L ) AND1 j 
IFV=16THENMX( J j L)=X 
!p V=43THENMX< J * L > =X+32 
IFV=80THEHHX(J.L>=64 
NEXT^ NEXT 
GOTO80 

U=0 : NK-0 ; FORJ=1T08 
v'=MX< J* IOAMDCR 
X=MX(JjK)AND15 
IFV=CRANDMX <0/X>=0THENW=1 
NEXT 

IFU=0THENRETURN 
R= I NT ( RND ( 1 > if 8 > +1 
V=MX(Rj K)ANDCR 

X=MX<R*K>fiND15 iyxnLITi<cr 

I FV=CRANDMX<0 .• X) =0THENNK=MXt R , K) AND 1 -j 
IFNK=0THEN3050 
_ 110 RETURN 

4000 DATA0.. 0 .• 3,0,0 .• 0 .• 4.. 2,0. 


1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
3000 
1010 
3020 
3030 
:O40 
3050 
3060 
3070 
3080 
3090 
3100 


>99*0*0*5*3*0*1*6*0*0*294 


>04 

THEN900 


63 


4010 DRTR4, 1,6,4,2,0,0,0,0,299,0,0,7,0,3, @. 
4020 DRTR0,2,8,6,0,0,0,0,0,494,0,3,9,7,5,4, 
403w BRTR0,4,10,0,6,0,0,0,0,504,5,5,0,9,0,6 
4040 HRTRt',6, 11, 10,8,0,0,0,0,699,7,7,0,0,9, 
4050 DRTR0,9,0,0,0,10,0,0,8,899 


0,6,1,304 
10,8,2,499 
i, 11,0,0,694 
0,0,11,6,704 












CAPITOLO 10 

BEIRUT 


Un occhio acuto e una mira accurata sono i requisiti necessari per scon¬ 
figgere i cecchini. Tu sei situato nel tuo veicolo corazzato che parcheggia a 
fianco di una fila di edifici. I cecchini ti stanno sparando dalle finestre e dalle 
porte. Vi sono molti alberi a fianco dei palazzi, essi forniscono molti ripari 
per i cecchini che sono ovunque, anche nei posti piu impensati. 

Quando un cecchino ti spara puoi vedere il lampo del fucile. Questa e u- 
nica possibilità per capire dove è nascosto e se sei sufficientemente svelto e 
preciso con il tuo mitragliatore puoi metterlo fuori gioco. Ma . cecchini cono¬ 
scono il loro mestiere e, se sei troppo lento, scaltramente s. mettono al r.pa- 

r ° Presto o tardi un colpo fortunato (sfortunato per te!) penetrerà nel tuo 
mezzo blindato e verrai eliminato. Prima che ciò accada il tuo compito e d. 
mettere fuori combattimento quanti cecchini puoi. 


Come giocare 

In funzione del livello di gioco aumentano i cecchini e deve aumentare an¬ 
che la velocità con cui li metti fuori combattimento. Appena I immagino » 









r.iod'1 8 ' 000 ini2la - " ,U ° mirin ° |una croce bia "“» nel cielo 

questi da "° SCherm °' e P“* "'uover, usando 


; su 
/ giù 
z sinistro 
x destro 


tast. hanno azione ripetitiva cosicché basta tenerli premuti per spostarsi 
velocemente. Udrai presto i fucili sparare e vedrai i loro lampi. Punta n m"X 

r 50 * POS,ZÌOne in Cui hai Vist0 11 lam P° e premi una volta la barra Tpa- 

is onn' ; rUm ° re de ' ,a $Ua SCarÌCa - Se S ^ ari tem P° i' cecchino non 

risponderà al fuoco. Affrettati a sparare contro un altro cecchino- il loro 
prossimo sparo potrebbe esserti fatale e la partita finirebbe 

ra Raggiunto 9l0C ° term, '" e P ° ,raÌ V6dere " tU ° PUnte ^ io ed 11 «cord fino- 


Tattica vincente 

Cerca di colpire i cecchini, quelli sistemati presso le finestre e le porte 

b^ S ai r ' n U l aC "' da l0cali2zare - 1 P iù difficili sono quelli nascosti tra gli al¬ 
beri. Al livello 8 o sopra hai veramente a disposizione poco tempo per spo¬ 
stare la mira da un cecchino all'altro. A meno che il mirino non sia molto vi¬ 
cino, non vale la pena di rincorrere i lampi dei fucili. Porta il mirino sul palaz¬ 
zo ed attendi il primo lampo che ti capita vicino. 

1 cecchini sono ogni volta posizionati casualmente e quindi non ti aspetta¬ 
re di trovarli sempre nella stessa posizione. M 


Digitazione 

Come al solito sono le istruzioni DATA che 
cura. 


necessitano della massima 


Caratteri di controllo usati: 
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CLEAR: 

CTRL-2: 


linee 40, 620, 750, 760 
linea 40 








CRSR DOWN: linee 70(2), 630(2), 640, 660(3), 770(2), 780 
CRSR RIGHT: linee 70(2), 630(2), 640(2), 660(2), 670(2), 
770(2) 780(2) 


Caratteri listati: 

C=/2: linee 620, 670 

Sezioni del programma 

10-60 Inizializzazione. 

70-80 Richiesta del livello. 

90-170 Lettura dei dati per la costruzione dell'immagine. 

180-270 Lettura dei dati per la posizione dei cecchini e la disattivazione 

casuale di alcuni di loro. 

280 II mirino. 

290-370 Sparo di un cecchino. 

380-520 Movimento mirino. 

530-610 Sparo del tuo mitragliatore e controllo se ha colpito. 

620-660 Visualizzazione del punteggio. 

670-750 Invito a rigiocare. 

760-790 Visualizzazione quando sono stati uccisi tutti i cecchini. 
4000-4130 Istruzioni DATA per il video 

5000-5030 Istruzioni DATA per la collocazione dei cecchini. 


Punti di interesse 

La routine di video mostra un modo semplice di costruire complesse figu¬ 
re sul Commodore 64. Blocchi di colore (spazi in negativo, il cui codice vi¬ 
deo è 160) sono posti in ogni locazione video da un’istruzione POKE. Le i- 
struzioni DATA consistono in coppie di numeri. Il primo fornisce il numero 
dei blocchi necessari (N) ed il secondo il loro colore (C). L operazione è 
compiuta in un ciclo (linee 90-170) che scandisce le posizioni video e co¬ 
struisce le immagini. 
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ìe 

20 

30 


REM ** BEIRUT #* 

G=1024 :H=55296:S=54272:DIMS* < 2,60 >:P0KE649, 
FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15iPOKES 


1 


40 PRINT" 3 g":fl=G-l:B=H-1:SU=0 
50 X=3:XX=3:V=3:VV=3 
60 TI*= "000000 

70 INPUT"H8|JM_IVELLO DI GIOCO (1-10V-L* 

80 L-VRL<L*>:IFL<1ORL>10THEN30 

90 P0KE53281,1:FORJ=1TQ209 

100 REfiDN 

110 REHDC 

120 FORK=1TON 


:POKE650,128 
50 :POKES+1,4: 
POKES+6,240 


130 POKEfl+K,160 
140 POKEB+K,C 
150 NEXT 
160 fi=FI+N:B=B+N 
170 NEXT 


180 FORK=lTO60 
190 REflDSX(0,K> 

200 NEXT 

210 FORK=1TO30-L*2 
220 J=INT<RND<1>*61> 
230 SX<1,J>=1 
240 NEXT 


250 FORJ=lTO60 

260 IFSX<1,J>=0THENSU=SU+1 

270 NEXT 

280 POKEG+X+40*Y,219 

290 SP=INT<RNO<1>#60>+1 

300 IFSX < 1 ,SP > = 1THEN380 

310 SX<2,SP>=TI 

320 POKEG+SX( 0 ,SP),174 

330 PQKES+4,129 

340 FORK=1TO30:NEXT 

350 POKES+4.,128 

360 POKEG+SX < 0,SP),160 

370 SS=SS+1 

380 T=TI 

390 GET8$ 

400 IFfi$=" "THEN530 
410 IFR$="2"THENXX=XX-1 
420 IFfl$="X"THENXX=XX+l 
430 IFXX<0THENXX=0 
440 IFXX>39THENXX=39 
450 I Ffi$= 11 • THENVV=VV— 1 
460 IFfì$=" / "THENVY=YV+1 
470 IFVV<0THENVV=0 
480 IFVV>24THENYV=24 
490 POKEG+X+40*V,160 
500 X=XX:V=VV 
510 P0KEG+X+40#Y,219 
520 GOTO600 
530 Z=X+40#V 
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540 FOKES+1,2:FORJ=1TO60 

560 IFS?i<0?j>=ZANOTI-SX<2, JX500-46*LTHENS2< 1, J> = 1 :SN=SN+1 
570 POKES+4, 128:POKES+l,3 
580 NEXT 

590 IFSN=SUTHEN760 

600 IFTI-T>25-L*2THEN380 

610 IFSSC150THEN290 

620 PRINT”3" :POKE53280,5:POKE53281,15 
630 pp T KIT “ WMKMI T1 HANNO PRESO ALLA FINE. 

gl HM colpito -,8N,« di LORO" 

650 IFSM<SNTHENSM=SN CM 

660 PRINT"HSfflMIIL MIGLIOR PUNTEGGIO E ;SM 
670 PRINf'HHaiPfìTTI '3^1'PER CONTINUARE 
680 GET A#sIFA*O-VTHEN 680 
690 FORJ=1TO60 
700 S?i<l, J>=0 
710 NEXT 
720 RESTORE 

730 POKE53280,14:P0KE532S1 , 6 

750 PRINT"3":POKE53280,14:POKE53281,6:GOTO30 

760 PRINT"3":POKE53280,5 :P0KE53281,15 

770 PRINT”HHffllE i EN FATTO!!" „ -NT" 

780 PPTNT" B»H AI COLPITO TUTTI I ;SU; CECCHINI 

4000 DATR146,6,2,2,2,6, 1 ,2,34,6,4,2,1 ,c>, 1 \ l *£ 

4010 DATA10,2,3,6,2,5,3,6,6,11 ,4,6,2,5,2,c,1 ,1 

4020 0ATA5,5,2,6,7,11,2,6,3,5,1,6,3,13,7,6,8,2^2,6^7,5,8,^1^ 

4030 DATA8,2,2,6,7,5,7,2,2,6,4,5,3,13,7,6,1,2,^^ 2 ? ' 2 g ’^ 

4040 OATA2,0, 1 ,2,2,0,1 ,2,2,6,4,5,3,13,4,6, 1 ' Z '\f 
4050 0ATA2,0,1,2,2,6,3,5,5,13,2,6,3,2,1,6,8,2,2,6,7,5,7,2,1^, 
4060 DATR5,13,1,6,2,2,1,0,3,2,2,0,2,2,2,0.1'2*^/6,6,5,7^2,1^ 
4070 DATA 13,2,3,6,5,5, 1,6, 1 ,2,2,0,1 ,2,2,0,1 ,2, US f 

4080 DATAI,0,9,2,5,6,2,9,2,6,1,2,2,0,1,2,2,0, 1,2,3,6,2,5, 5,^ 

4090 DATA2,2,2,0,l,2,5,6,2,9,2,6,7,2,4,6,l,9,2,6,^l,3.3,6,j3. 

4100 DATAI,9,2,6,1,9,3,6,18,2,2,9,4,2,2,0,3,2,4^8^ - 1 • 

4110 DATA5,2,2,0,8,2,2,9,4,2,2,0,3,2,4,8,1,9,2 . V> 
4120 DATA8, 2,2,9,4,2,2,0,3,2,4, 8, 1,9,2, 8, 1,9,3,8,1 

4130 DATA2,2,36,7,2,9,32,7 


Oli 


5000 ORTfì189,202,223,231,304,305, 308 ,309,330,355,375,398, 
5010 DRTR434'445,478,481,502,530,533,540, 54 V, 545*, 548^ 549^'^ 
5020 DRTR 6 41, 6 42, 6 45,6 6 4, 665 , 6 68,669,673j?9;7S;735:755; 621 

7?Q 7C(7 7QT; 

5030 v Dfl T fi802,803,813,826,850,8 60 ,867,915,927,988' ' 


Variazioni 


Modificando i valori nelle linee 5000-5030 si possono posizionare i cecchi¬ 
ni in luoghi diversi. I numeri corrispondono a posizioni video, partendo a 
contare dall’angolo sinistro in alto e procedendo per linee. Se preferisci una 
battaglia più lunga aumenta il numero nella linea 610 e da 150 a, diciamo, 
200. Se ti piace giocare al livello 10, ma non riesci a muovere il tuo mirino in 
maniera sufficientemente veloce, modifica il ‘25,’ in linea 600, in ‘30’ o '35'. 

Se sei invece stanco di combattere per le strade, perchè non ambientare 
lo scontro nella giungla oppure tramutarlo in una battaglia navale? È facile 
ridisegnare I intero video cambiando semplicemente le istruzioni DATA nelle 
linee 4000-4130, e adattare le linee 5000-5030 per collocare i cecchini in 
una posizione conveniente. 
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CAPITOLO 11 

FILETTO 



Il filetto è un gioco tradizionale. Vi sono due giocatori, ognuno con 9 pezzi 
o pedine da muovere su un curioso piano di gioco. Sebbene le regole siano 
semplici, vincere una partita non è sempre facile come potrebbe sembrare. 


Come giocare 


I due giocatori sono rappresentati da due colori: il rosso ed il blu. Il bordo 
del video regolerà i turni mostrando il colore del giocatore che deve muove¬ 
re Il qioco ha due fasi. In quella iniziale il video e di colore giallo. 

Appena compare nel display il piano di gioco vedrai un punto interroga ivo 
nell'angolo in alto a sinistra. Se intendi collocare il tuo pezzo m quella zona 
premi il tasto ‘A Quando premi questo tasto compare sulla posizione scolili 










vTto m rn°r del tU ° C0l0re: quest ° é la tua pedina - Se 11 s P° sti oltre il punto 
to, continua a premere la barra spaziatrice finché non vi ritorni 

dine-r::: 6513 f3Se de ' 9Ì0C ° C6rCa di posizionare in fila tre delle tue pe- 
unTato di un f° nOCOnSÌdera,e in fila guand ° ^cupano le tre posizioni di 
dm f n h 9 rat ° ° dÌ Una deNe Hnee che congiungono i qua- 

d e a “PREN^i°uN S pE77n" 0 n are ‘ re ^ tUOÌ P6ZZÌ Ìn Hnea ’ 11 C ° mputer Per¬ 
dei,’ UN / EZZ0 ' Quest ° significa che devi sottrarre uno dei pezzi 

dell avversano. Per fare questo, basta premere uno dei tasti corrispondenti 

numeri delle pedine deiravversario, posti nella parte alta della tastiera 
uando entrambi i giocatori hanno piazzato tutte le 9 pedine si passa alla 
seconda fase de, gioco, in cui i, video acquista un colore ZTcZo 

Bisogna muovere i propri pezzi, a turno, da una posizione ad un’altra non 
ancora occupata. Le pedine non possono saltarsi e due pedine non possono 
occupare contemporaneamente lo stesso posto. 

ZON r° tUm0 qL !f nd0 11 b ° rd ° dÌVenta del tuo colore ed » messaggio '‘PEZ¬ 
ZO N.. appare. Per scegliere il pezzo da muovere bisogna digitare il tasto 

sibde m e T ^ 13 P6dÌna è St3ta rÌm0SSa dal pia "° d i gioco o non è pot 
muoverla (perche le posizioni adiacenti sono occupate) la scelta vL e 

ignorata e devi digitare un altro tasto. Poi appare il messaggio: "MOSSA” e 

dovrai digitare uno dei seguenti tasti a seconda delle tue intenzioni: 

U verso l’alto 
H verso sinistra 
J verso destra 
N verso il basso 


ch, S e e sta er "PEZ 0 ZO te N n r dÌ ^ ÌmP ° SSÌbÌ ' e ’ devi ripartire da »a ri- 


Si vince il gioco in due condizioni: 

1 ) bloccando le pedine dell’avversario. 

2) riducendo a 2 il numero delle pedine dell’avversario 


Come nella prima parte del gioco, cercherai di comporre il filetto ftm 
dme in .Ila, che darà la posaibililà di sera,re un pe!TL 

premi "°'° ^ ha Vi ™° 6 ■>«•* 
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Tattiche vincenti 


Nella prima parte del gioco cerca di fare filetto il più spesso possibile. Le 
pedine posizionate nel mezzo di un lato del quadrato possono essere usate 
per filetti in diverse direzioni. Allo stesso tempo cerca di bloccare le mosse 
dell'avversario impedendogli di fare filetto. Quando, nella prima fase, devi 
prendere un pezzo dell’avversario evita di eliminarne uno da un filetto, 
poiché questi potrebbe rimpiazzarlo formando cosi un nuovo filetto. Nella 
seconda fase puoi benissimo aprire e chiudere il filetto ottenendo così il dirit¬ 
to di sottrarre, ogni volta, pedine al tuo avversario. Se ti sono rimasti pochi 
pezzi tienili vicini e cerca di fare filetto il più spesso possibile. Se invece hai 
numerose pedine tienile sparse per il piano di gioco in modo da ridurre le 
possibilità di mosse del tuo avversario o eventualmente per bloccarlo. 

Vi sono delle situazioni, specialmente quando entrambi i giocatori hanno 
pochi pezzi, in cui nessuno riesce a portare a termine vittoriosamente la par¬ 
tita. Il computer non riesce a rilevare tali situazioni, quindi spetterà ai gioca¬ 
tori di mettersi d’accordo e premere: ‘RUN/STOP’ e poi digitare ‘RUN’ per i- 
niziare una nuova partita. 


Digitazione 

I caratteri di controllo usati sono: 


HOME: 

linee 30, 50 

CRSR-DOWN: 

linee 30, 180 

CTRL-5: 

linea 60 

CTRL-9: 

linee 60,70(3), 80(3), 90(5), 100(5), 110(6), 
120(2), 140(5), 160(3), 180 

CTRL-0: 

linee 70(2), 80(2), 90(4), 100(4), 110(5), 120, 
140(4), 160(2) 

CRSR-UP: 

linee 460, 540, 630, 1080, 1120 

CTRL-3: 

linea 900 

CTRL-7: 

linea 910 


I messaggi terminanti col disco in negativo (CRSR-UP) sono tutti lunghi 6 
caratteri, escluso il disco. Fai attenzione ai punti e virgola dopo i messaggi 
nelle linee 900 e 910, senza i quali il video risulterebbe falsato. Ricordati di 
digitare il % dove è richiesto (tabella M%() ). Se lo dimentichi o per errore 
digiti al suo posto il incorreresti in un errore di OUT OF MEMORY. 
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Sezioni del programma 


10-40 

50-180 

190 

200-320 

330-350 

360 

370-450 

460-530 

540-660 

670-680 

690-740 

900-910 


Inizializzazione. 

Costruzione immagine video. 

Punto di rientro per ogni mossa della prima fase. 
Posizionamento di un pezzo. 

Controllo della realizzazione di un filetto. 

Punto di rientro per ogni mossa della 2 a fase. 
Controllo sull impossibilità di un giocatore a muovere. 
Scelta del pezzo da muovere. 

Richiesta del tipo di spostamento. 

Controllo sulla realizzazione di un filetto. 

Routine finale. 

Subroutine per il cambio del turno. 


1000-1200 Subroutine di controllo filetto e supervisione dell’asportazione del 
pezzo deN’avversario. 

2000-2080 Subroutine di ricerca del filetto. 

2500-2520 Subroutine di inserimento. 

4000-4070 Istruzioni DATA per la tabella M%(). 


10 REM ** FILETTO ** 

20 G= 1024 : H=55236 : B=53280 : S=532S1 : DIMMJi < 6,24 > , Pr: < 2,3 > , fi* < 2 > » 

POKE649,1 

80 PRINT " ZI" :POKEB , 2 : POKES , 7 

40 F0RK=1T024 :FQRJ=0TOS : REfiDMK ( J , K> : NEXT :NEXT 
50 M=2 : PR I NT " mfl" 

60 PRINTTfìB<10)"aa,-—-,_ 

70 B*="3I! ai» J3IB" sPRINTTRB< 10>B*: 

PRINTTfiB<IO ■ BI 

80 PRINTTflB< 10>"ai! a i-1->■ 311" 

90 C*="3|■ 311 311 311 31!" :PRINTTfiB(10>C*: 

PRINTTfiB< 10 ii I 
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190 PRINTTRB< 10>"31B 31S Si- 1 -iB 31 B 31 B" 

110 0*="3IS 31B 31B 31B 31B 31B" :PRINTTRB< 10>D* : 

PRINTTRBC10>D* 

120 PRINTTRB< 10>"3 I-1-IB 31-1-IS" 

130 PR I NTTPlB < 10 > D$ : PR I NTTPlB < 10 > Df 

140 PRINTTRB< 10>"31B 3IB 3 1 -1-'B 3IB 3IB" 

150 PRIHTTRB-:: 10>C* :PRINTTRB< 10>C$ 

160 PRINTTRB< 10> " 31 B 3'-1-'B 31 B" 

170 PRIHTTRB-:10>B* : PRIHTTRB 1 ' 10 >Bt 

180 PRINTTRB< 10> "3 1 - 1 -'SH*' 

180 GOSUB900 
200 POKEB , 4*11—2 
210 IFP=10THENP=1 
220 K=0 

230 K=K+1:IFK=25THENK=1 
240 IFPEEK<G+MJi<5,K>X186THEN230 
250 POKEG+M'i < 5 , K > , 191 
260 GETRT: IFRÌ = ""THEN260 

270 IFfl*=" “THENPOKEG+MK( 5 , K > ,MK<6,K>:GOTO230 
280 IFRf =, V"THEN300 
290 GOTO260 

300 POKEG+Mfi < 5 , K > ,P+176 
310 P0KEH J -f1*l<5,K> ,M*4-2 

320 nz < 0 , k > =p+ 10 * <ri -1 > : f:< <ri, p >=1 

330 GOSUB1000 
140 I FF7=7THEN690 
I50 IFNOT <P=9RMDM=2>TRENI98 
i. .0 POKES ,13: GOSUB900 
J70 FB=1 
180 FORK=1T024 

r*0 riM=r-i;:<0,K> 

Il II I I FMM=00RMti: 10RNOI1= 1DRMM 10RNDt1=2THEN44O 
Un FORJ= 1T04 

I ii IFMX-: J,K>>0RNDMX<0,MXO.T,K> >=©THENFB=0 

I il NEXT 
1-10 NEXT 

imi POH EB,4*11-2 :1FFB= 1THEN710 
4*.il l'RINT"QIJRLE PEZZO? □" 

•|,ii GOSUB2500 
[«mi II I TX t'1,fl><>1THEH470 

I III I' -0 

'uni II IIX■ 0,K>OR+10* < ri- 1 >THENK=K+1 :GOTO5O0 

hi" i I 1 iFORJ—1T04:IFMJXJ,K>O0flNDMJ4<0,M5i<J,k'>)=0THENFB*0 

h n i«>;t 

*!» hi II I |: ITHEN460 
M" I R I NT"MOSSR? □" 

h*ii i.l Ini :IFR$=""THEN550 
hrii lini "U"THEND=1 :GOTO610 
«li" Il ni »"M" 1HEND=2:GOTG610 
Udii li ni » " ! " THEND=3 :GOTO610 
C. ..I -"II" THEND=4 :G0T0610 

• III. li i’.Mi 

S in II II M I >“0THEN460 
: 11 1111 ni, h;:■ o,r >><>othen460 
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630 FRINT" T 

640 P0KEG+MX(5, K).. MJ '.<.6, IO : P0KEH+MX<5, IO, 4 

650 pokeg+n;:< 5 , mx <.t, k> >, a +1 76 : pokeh+mx< 5 , mx<d* k> >, 11 * 4-2 
660 mx <: 0 , 10=0 : mx c 0 ,mx< n, k> >=r+ 10 *<m -1 > p=r 

670 GOSUB1000 
680 IFF7<7THEN360 

690 FRINT"7 PEDINE RIMOSSE - HRI VINTO!!" 

700 GOT0720 

710 FRINT"SEI BLOCCATO - HRI PERSO!" 

730 GETRT : IFfi$=""THEN730 
740 P=G:POKES,7 :GOTO50 

900 IFM=2THENM=1•MX=2 PRINT"!*", P=P+1 : RETURN 

910 M=2 : MX= 1 PR INT " 3" ; RETURN 

1000 FT=0 

1010 F0RK=2TQ23 

1020 IFM X <1,10 “0ORMX <2, K > =0THEN 1040 

1030 Pfi=l : GOSUB2000 

1040 IFMX < 3, K > =0ORMJi < 4, K ) =0THEN 1060 

1050 PR=3■GOSUB2000 

1060 NEXT 

1070 IFFT=0THENRETURN 

1080 FRI NT"PRENDI UN PEZZO! T 

1090 GOSUB2500 

1100 I FPX < MX, fi > = 1THEN1120 

1110 GOTO1090 

1120 PRINT" T 1 

1130 PX < MX,fi)=2 
1140 F0RK=1T024 

1150 IFMX(0, IO =fl+10*<MX-1)THENMX<0,10=0:P0KEG+MX<5,K),MX<6, IO 
1160 NEXT P0KEH+MX<5,10*4 

1170 F7=0:FORJ=1T09 
1180 IFPX<MX,J ) =2THENF7=F7+1 
1190 NEXT 
1200 RETURN 

2000 IFMX < 0,K> =0QRMX(@,MX < Pfl, K) >=0ORMX<0, MXCF'fl+l, K))=©THENRETI IRN 

2010 FM—0 - IFMX < 0, K ) > 10THEHFM=FM+1 

2020 I FU’/. < 0, M’/.< Pfi, K ) ) > 10THENFM=FM+1 

2030 IFMX<0,MX< PR+1,K))>10THENFM=FM+1 

2040 PP=P+10*<M-1> 

2050 FP=0 IFMXC0,IO=PPORMX<0,MXCPfl,IO>=PPORMX<0,MXCPR+l,K) )=pp 

THENFP»1 

2060 IFM=1RNDFP=1RNDFM=0THENFT=1 
2070 IFM=2ANDFP=1RNDFM=3THENFT=1 
2080 RETURN 

2500 GETR$ : IFA$=""THEN2500 
2510 fi-v'AL<fi$) 

2520 RETURN 

4000 DRTR0,0,10,2,0,90,240,0,0,5,3,1,99,242,0,0,15,0,2,108,23:: 
4010 DRTA0,0,11,5,0,213,240,0,2,8,6,4,219,219,0,0,14,0,5,225,230 
4020 DRTR0,0,12,8,0,336,240,0,5,0,9,7,339,241,0,0,13,0,8.342,2 m 
4030 DRTR0,1,22,11,0,450,235,0,4,19,12,10,453,219,8,7,16,0,11, 

4040 BfiTfìo,9, 18,14,0,462,235,0,6,21,15,13,465,219,0,3,24,0,14 

4050 DRTR0,12,0,17,0,576,237,0,0,20,18,16,579,242,0,13,0^0•1. ' ' 

582,25 i 
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4060 DRTR0,11,0,20,0,693,237,0,17,23,21,19,699,219,0,14,0,0,20, 


4070 DRTR0,10,0,23,0,810,237,0,20,0,24,22,819,241,0,15,0,0,23, 

828,253 


RERDV. 
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Come giocare 

i ..i -,.. i 


Ouida la pallina attraverso il labirinto senza farla cadere in uno dei buchi, 
ve una mano ferma e riflessi pronti e, con un po’ di pratica, vi riuscirai. 


ini/mlmente viene costituito il labirinto, poi compaiono i buchi colorati di 
ro ikI eccezione di quello in basso a destra che è blu, in cui devi lasciare 
m la pallina. Questa appare come un disco rosso nell’angolo in alto a si¬ 
ali indicatori di direzione compaiono lungo il lato destro e sul fondo dello 
tintimi II centro di ogni indicatore è marcato con una stella rossa. Gli indi- 
imi ilvnlano verso dove e quanto il labirinto è inclinato, inoltre ti aiutano a 
ollnrn la direzione ed il moto della pallina. 













f 


Il labirinto viene inclinato usando questi tasti: 

Z verso sinistra 

X verso destra 

; verso l’alto 

/ verso il basso 


I tasti hanno azione ripetitiva cosicché più a lungo li tieni premuti e più au¬ 
menterà l'angolo di inclinazione. 

Per iniziare a muovere la pallina verso destra dovrai premere il tasto X, 
ma non troppo, altrimenti potresti cadere entro il primo buco. Tieni d’occhio 
l’indicatore sul fondo dello schermo e giudica quando premere il lato Z. 
Quando vuoi fare andare la pallina in una direzione è importante non inclina¬ 
re troppo il labirinto in una direzione ortogonale a quella voluta, altrimenti la 
pallina rimarrà attaccata al muro senza muoversi. 

Quando la pallina cade in uno dei buchi (ad eccezione di quello blu) senti¬ 
rai un effetto sonoro. Subito dopo la pallina apparirà nella posizione iniziale. 
Il gioco viene cronometrato ed alla fine ti sarà riferito il tempo impiegato per 
collocare la pallina nel buco blu. Premi qualsiasi tasto per giocare ancora e 
cerca di abbassare il record del tempo. 

Tattica vincente 

L'anticipazione è la chiave per riuscire in questo gioco. Appena la palla 
acquista velocità, inclina il labirinto nella direzione opposta per rallentare la 
sua corsa e non farla cadere nei buchi neri. Ti accorgerai che con una sola 
pressione del tasto.potrai invertire la direzione della pendenza con una op¬ 
posta e di lieve inclinazione. È possibile inoltre sfruttare l’effetto aderenza ai 
muri. Usandolo tempestivamente puoi fermare la pallina molto più veloce¬ 
mente che invertire la direzione. È anche utile per bloccare la pallina, per ri¬ 
prendere fiato e prendere visione deM'intero labirinto o per stabilire la strada 
da seguire. 


Digitazione 

Il disegno del labirinto è contenuto nelle linee 4000-4200. Assicurati che 
siano corretti tutti gli ‘1’ e tutti gli zero, altrimenti potresti trovare degli osta¬ 
coli o delle facilitazioni nel percorso. 
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I caratteri di controllo usati sono solo: 


CLEAR nella linea 40 

HOME nella linea 720 

Sezioni del programma 

20-40 Inizializzazione. 

50-350 Visualizzazione del labirinto e degli indicatori di inclinazione. 
360 Azzeramento dell’orologio. 

370-380 Punto di rientro per ogni calcolo; cancellazione della freccia di 
inclinazione dello schermo. 

390-460 Inserimento comandi, calcolo e visualizzazione dell inclinazione. 
470-490 Calcolo della posizione della pallina. 

500-570 Controllo del movimento della pallina. 

580 Movimento pallina. 

590-600 Preparazione mossa successiva. 

ni0-700 Caduta della palla nel buco (effetti sonori e riposizionamento ini¬ 
ziale). 

710-810 Caduta della pallina nel buco finale (accordo trionfante e visua¬ 
lizzazione del tempo). 

| |?0-860 Invito a rigiocare. 

4(l()() 4100 Istruzioni DATA per i muri del labirinto. 

4 ;im 4;'20 Istruzioni DATA per le posizioni dei buchi (eccetto quello blu). 

Punii di interesse 

I prima che il labirinto compaia nel video, questo è già coperto dai buchi (li- 
■fi 70 ) Questi ultimi non sono visibili perchè di colore bianco su sfondo 
blMi" o l’or renderli visibili basta scrivere (istruzione POKE) i relativi codici 
Bp Ottimo nelle corrispondenti locazioni RAM (linee 320 e 340). 
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La pallina viene colorata di rosso con l’istruzione POKE in linea 350. Far 
muovere la pallina è facile: è sufficiente un’istruzione POKE per dare il colo¬ 
re bianco all’attuale posizione ed il colore rosso alla posizione che deve as¬ 
sumere (linea 580), determinando cosi l’illusione del movimento. La presen¬ 
za di un muro o di un buco nella posizione che la pallina dovrebbe assumere 
sono rivelati da istruzioni PEEK che leggono i valori nelle locazioni dei colori 
in RAM (linee 500 e 520). 


10 REM ** LRBIRINTO ** 

°=^- H 7^ 296:R=G sB=H:HX=H+939:HV=H+519:W=160 : r= 3 
^>0 POKE650, 12S :X=1 : V= 1 :NX=1 :NV=1 :S=542?2 
40 PRINT"3":POKE53280,3:POKE53281 1 

50 FOR. T = j T03? 

60 GJ=G+J :HJ=H+.I :FORK=l T021 
70 POKEHJ+40*K,1:POKEGJ+40#K,81 
80 NEXT 

90 POKEHJ,C:POKEGJ,14:PGKEHJ+880,C:POKEGJ+8S0,W 

lfe NEXT HJ+920 ' 1:POKEGJ+920 ' 30 : POKEGJ+960,W:POKEHJ+960,C 

120 FORK=0TO960STEP40 

130 POKEH+K,C:P0KEG+K,I4:POKEH+K+38,C:POKEG+K+38,14:POKEH+K+ 
140 MEXT 39,1:P0KEG+K+39,31 

150 FORJ=920T0928 :POKEH+J,C s POKEG+J,W:NEXT 
160 FOR J=950TO959 :POKEH+J , C : POKEG+J , 14 : NEXT 

170 POKEH+39,C:POKEG+39,M:POKEH+79,C:POKEG+79,14:POKEH+999,C: 

180 POKEHV , 4 : PQKEG+939,42 POKEG+999,14 

190 POKEHX, 4 :POKEG+519,42 
200 FORJ=0TO20 
210 RERDR* 

220 N=41 

230 F0RK=1T037 

240 IFMID*<fl$,K,l>="0"THEN260 
250 POKEB+N , C : POKEfì+N, 14 
260 N=N+l 
270 NEXT 

280 fì=R+40:B=B+40 
290 NEXT 
308 F0RJ=1T028 
310 REflDN 
320 POKEH+N,0 
330 NEXT 

340 POKEH+877,6 :F'0KEG-*-877,81 
350 P0KEH+41.10 
360 TI♦="000000" 

370 IFRXO0THENPOKEHX+RX , 1 
380 IFRVO0THENPOKEHV+RV*40,1 

390 GETR$ : IFR$="X"RNDRX<:0ORfì*="Z"RNDfìX>0THEHflX=0 
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400 

410 

420 

430 

440 

450 

460 

470 


IFR$="X"RNDRX<10THENflX s =flX+1 
t Fflì— " 2 11 RHDftX>-10THENRX=RX-1. 

FflS=’"/"RNDfiV<0ORfl#=' 11 1 "RHDRV;0THENRV=0 
IFR$='V "RNDRVC10THEHRV=RV+1 
IFR$=";"ftHDRV>-10THENRV=RV-l 
1FRXO0THENPOKEHX+RX, 4 
I FRVO0THENPOKEHV+RV#40 .• 4 
VX=VX+HX#2 : VV=W+RV#2 


510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 


- Bn ipòpe '< VX•}> 1 0THENNX=X+1 #SGN<VX> • VX=0 
Ji| W)>10 THEnÌ5v*V+1*SONCVV) : VV-0 

500 CX=PEEK < H+HX+V+40 ) RND7 
CV=F'EEK ( H+X+NY#40 ) AHD7 
CZ=PEEK < H+NX+NY#40 ) RNI'7 
IFCX=0ORCV=00RCZ= : 0THEM610 
IFCX=3THENVX=0 NX=X 
IFCY=3THEHVV=0 : NV=V 
IFCZ=3THENVX=0 : VV=0 : NX=X : NV = t 
IFCX«60RCV=6THEN710 _ 

P0KEH+X+40#V 1 1 : F'0K.EH+WX+40'*Ht , 10 
X=NX•Y=NV 
GOTO370 

POKEH++X+40*V , 1 
620 IFRXO0THENPOKEHX+RX , 1 

SS 13 < P0KES +5 ,9 : P0KES.6,0 

' m F=4200+J#250'POKES+1.INT(F/256> P0KES#F-<236*IHT(F/256>) 

NEXT „ „ 

POKES+24 , 0 : POKES+4,0 . ,. JV _ « 

HX=0 : RV=0 : VX=0 ; W=0 : .5= 1 • t = 1 • Ha- 1 14 t 1 

GOTO350 

T=VRL<l1IB*ai*,3,2>> MTU11 

POKES+2 ©■ 240 : P0KES+1.17 P0KE3.37 P0KES*8,51 : POKW.SJ^ ^ 

PQKES+14,43:POKÉS+4,17=POKES+11/17=POKES+18, 

FORJ=1TO100 ; NEXT 
\ 'OK.ES+4,0 : POK.ES+11,0 POKES+18,0 
I- ORJ= 1TO40 '• NEXT „ . _ 

POKES+4,17 : POKES+11,17 = F'OKES+13,1. 

I ijP J= 1TO450 ; POKES+24 , 15-J/30 : NEXT 
( i )RJ=0TQ24 ; POKES+J,0 : NEXT 
ni "" GETRT : IFfl$=""THEN820 
I i.iR .T=0TO15 
I ni EH+J,C : POKEO+J,W 

miìxt 

UN 


660 

67G 

*80 

690 

70G 

710 

720 

730 


‘40 


17 



Till 1101111111111111010101011H111010 
liMli liòt 30010000010000000001010} 00000} 1 « 

imi tini110101110101111111110101110111011i: 
lui 1 1 uh u 11 00O001000001000100010600000101f00 
tini 11 1101110101011111010101010H 1111101111 
I „,, nn I in n. 1101910100010101010100? 1000fff 
{minili 11 0 1 0 1010101010101011111 0 1 11 0 ^ 11111 



4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 


DAT flo1000101011101000101010001 Minino100OOO 
DATA0001 1 1010101011111010101010Ì01" 1101 ì ì ì 
DATA 01 0001 0 1 01 0000000 1 00000 1 01 0 j 0 1 0000000 

DATA0111011101110101011101110001010101011 
DATFI0 1 0000000 1 000 1 0 1 0001010111110101 01 000 
DRTH010111111101110101111100000001010111ò 
DRTA0101@00000010001010001011111110111000 
DAT A000IIIIIIII1011101010101000001ò1010ii 
DATA010100000001000001010101010 ì000100000 
DATA01010111110101ll110101010101110101j10 
DRTA0001010000000100010101010101000101000 

DATH01010111111 11101011101 H010101 non 11 


11 no lui ut'i-JUOUOOOOy 10000000001 0001 0000000 

DRTA59, 65;. 73,151,157,215, 231,281,303,315,331,393,447 
DATA541,543,593,615,673,709,723,767,779,783,796,841. 


Variazioni 


Su un foglio di carta a quadretti può essere disegnato un nuovo labirinto 
con dimensioni di 19 quadretti per 21, che non includa il muro interno al labi 
rinto. Scurisci i quadretti dove decidi costruire i muri. Le istruzioni consisto 
no in 21 gruppi di 19 righe, un gruppo ogni riga del disegno. Dove è situato il 
muro (il quadretto scuro) la cifra è ‘1 dove c'è il sentiero (il quadretto vuo 
to) la cifra è zero. 

Modifica il listato nelle linee comprese tra 4000 e 4100 con quelle per il 
nuovo labirinto. Modifica le linee 5000 e 5010 per le nuove posizioni dei bu¬ 
chi nel tuo labirinto, contando i quadretti lungo le righe a partire dall’angolo 
in alto a sinistra. Se vuoi collocare inizialmente la pallina in una differente 
posizione o spostare il buco finale, modifica le linee 340 e 350. 












CAPITOLO 13 

CANTAUTORE 



Parole e musica composte dal Commodore 64! Per essere sinceri, sei tu a 
fornire le parole, ma è il computer a combinarle in dozzine di differenti ma- 
ninre. Le poesiole di cinque righe che compone, possono essere divertenti 
come ridicole, in funzione della tua inventiva, e molto più ironiche se inseri¬ 
tili I nomi dei tuoi amici o parenti. Giocaci per divertirti da solo o dai un party 
ill'lnsegna del 64 Compositore! 


Come giocare 

tulio ciò che dovrai fare è digitare il programma e dare il comando RUN. 
Inizialmente sentirai il motivetto, poi vedrai comparire un verso rimato co- 
•ttulto dii parole e frasi già incluse nel programma. Ti verrà chiesto: "VUOI 
QANI ARI..O?"; se vuoi cantare le parole, accompagnato dalla musichetta 
bfH* hnl precedentemente ascoltato, premi il tasto ‘S’ ed il motivetto viene ri- 
Mlulii mantenendo il verso sul video. In seguito viene chiesto: “ANCORA? . 
K( pioml il tasto ‘S'il motivetto viene ripetuto. Se invece vuoi un nuovo verso 
[fttNml un qualsiasi altro tasto ed il 64 comporrà un nuovo motivo. 
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Digitazione 

Le variabili a stringa nelle linee comprese tra 60 e 80 iniziano e finiscono 
tutte con uno spazio. Inoltre vi sono 4 spazi tra il punto di domanda e il di¬ 
schetto in negativo (CSRS-UP) nella linea 170. 

I caratteri di controllo usati sono: 


CLEAR: 

CTRL-2: 

CRSR-DOWN: 

CRSR-UP: 

CTRL-7: 


linee 50, 210 
linee 50, 210 
linee 50(3), 480(3) 
linee 170, 480 
linee 170, 480 


Sezioni del programma 


10-80 

90-150 

160-190 


Inizializzazione. 

Esecuzione del motivetto. 

Invito a ripetere il motivo (saltato nel primo passaggio del pro¬ 
gramma). 

Selezione casuale delle parole e frasi delle istruzioni DATA. 
Costruzione e visualizzazione del verso, linea per linea. 

Invito a cantare. 

Ciclo di lettura dei primi 123 dati. 

1000-1060 Istruzioni DATA per il motivo. 

2000-8000 Istruzioni DATA per il verso. 


200-360 

370-470 

480-500 

510-540 


Punti di interesse 

Le parole vengono astratte direttamente dalle istruzioni DATA ogni volta 
che viene composto un nuovo verso. Sarebbe stato molto più semplice aver 
trasferito prima le parole in una tabella dove potevano essere elaborate più 
facilmente, ma ciò avrebbe comportato uno spreco di memoria in quanto sa¬ 
rebbero stati presenti gli stessi dati due volte, una nel programma e l'altra 
nella tabella, inoltre sarebbe risultato poco pratico aggiungere altre parola o 
frasi. 
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I numeri casuali sono molto sfruttati, perciò viene definita una funzione 
apposita nella linea 30. 


10 REM ** CANTAUTORE #* 

20 FOR J=0TO24:POKE54272+J,0:NEXT 
90 y=54272-POKEV+5, 9 :POKEV+6,130: 2=0 
40 DEF FNR<X>=INT<RND<1>*X>+1 
50 PRI NT " "MMM " : POKE53280,5 : P0KE5o281,10 

n SE :SSS:: !«. «u» 

80 Z*<1>=" DAV " :Z$<2> = " NIGHT " 

90 POKEV+24,15:F0RJ=1T041 
100 READFH,FL,D 

110 POKEV,FL:POKEV+1,FH:POKEV+4,33 

120 FOR K=1TO150#D 

130 NEXT 

140 POKEV+4,32 

150 NEXT:POKEV+24,0 

160 IF Z=0THENZ=1:GOTO200 

170 PRINT"3 ANCORA ? 3" 

180 GET A$:IF A$="" THEN 180 
190 IFA*="S"THEN RESTORE:GOTO90 
.'00 RX=FNR<2> :RV=FNR<3> :RZ=FNR<2> 

210 PRINT"33":F0RJ=1T07 

2T0 IFJ=4THENRR=FNR < 2 >:I4=<RX-1>*S/Q+<RQ-1>*Q+RR:GOTO290 
.'40 RQ=FNR<Q> 


. 30 P=1 

< ii IFJ=3THENP=RX 
«',’0 IFJ=5THENP=R2 
•M0 W=<P-1>*Q+RQ 
,”<n FORK= 1TOW 
lini READW*(J> 


Un NEXT 

1211 I rK=S+1THEN360 
un I (IRK=N+1TOS 


il» RIADW* 

<Mi NEXT 

»,9i VI "THERE WAS A "+W*<1>+" M +I4$<2>+X*<RX>+W$<3> 
imi l |,'1NT :PRINTV* 

4’<n V» "WHO“+V*<RY>+W*<4> 


... sPRINTV* 

4 |ii vi <" 1HEN "+W$<5> 

4. il I l UH «PRINTV* 

4 iti v* "lini M +W$<6>+Z*<RZ> 

I li. I l INI iPRINTV* 

HgV*-"IMAT "+W$<7>+" "+W*<1>+ 
4»M M INI iPRINTV* 

I il il . 11IRI 


"+M$ < 2 > +X* <RX >+Hf <3 > 


480 PRINT ” HHEE VUOI CANTARLO ?□" 

490 GET fì$ :IFfi*= , *"THEN490 

500 IF flÌ="S"THEN90 

510 F0RJ=1T0123 

520 REROX 

530 NEXT 

540 GOTO200 

1000 DOTAI6, 195., 1,22,96,2,22,96, 1 ,22,96, 1,22,96,2,21,31,1 

1010 DATA18,209,1,21,31,2,25,30,3,0,0,1,16,195,1,25,30,2 

1020 DRTR25,30.1,25,30,1,25,30,2,22,96,1,21,31,1,22,96,2 

1030 ORTA28,49,3,0,0,1,28,49,1,33,35,2,33,135,1,33,135,1 

1040 DRTR33,135,2,0,0,1,28,49,1,29,223.2,29.223,1,29,223,1 

1050 DRTR29,223,2,0,0,1,25,30,1,28,49,2,33,135,1,28,49,1 

1060 DRTR29,223,2,28,49,1,25,30,1,28,49,2,22.96,2 

2000 DRTR4,4,FOT,GREfiT,SLV.BRIGHT 

3000 DATA4,4,WRITER,L0AFER,ARTIST.BEUTY 

4000 DRTR3,6,NELLY,PflRKIN,NEVILLE 

4010 DATRLUTON,ELY,NORWICH 

5000 DRTR2,12,THREW BRICKS RT THE TELLY,RTE ICE CREfìM 

RND JELLY 

5010 DRTHSET RLL THE DOGS BRRKING,WRS FOOLING RND LARKING 
5020 DRTRSRID 'I'M A RERL DEVIL',WRS QUITE ON THE LEVEL 
5030 DfiTRWENT HUNTIN' RND SHOOTIN',PLAYEO CHESS WITH 

HIS BOOTS ON 

5040 DRTRSRID 'IS IT TRUE? - RERLLY?',HAD EVES THRT 

WERE STEELV 

5050 DRTRRTE NUSTRRD WITH PORRIDGE,LRCKED VIGOUR RND COURRGE 
6000 DflTR3,6,SPENT RLL HIS PRV,FELL IN THE BAY,JOINED THE RR 
6010 DRTRDIED OF SHEER FRIGHT,PUT OUT THE LIGHT,LOOKED 

SUCH fi SIGHT 

7000 DRTR5,5,TERRIBLE,COLD FROSTV.ILL FRTED,FRBULOUS, 

MEMORRBLE 

8000 DRTR6,6,STUPID,CLEVER,LRZY,CRRFTV,EVIL,PRETTV 
READY. 


Variazioni 

Il motivo può essere cambiato modificando le linee 1000-1060. Ogni noia 
è ottenuta combinando tre numeri, nell’ordine: l’alta frequenza, la bassa fre¬ 
quenza e la durata. Devi adeguare la linea 90 al numero delle note del tuo 
nuovo motivo. 

La routine della musica usa una nota alla volta, ma può essere aggiunto 
anche un accompagnamento armonico. Vi è una vasta possibilità di imitare 
strumenti diversi (anche casualmente) e aggiungere inoltre qualche intei 
vento di percussioni. 

Il maggior divertimento ti verrà dato dal comporre le parole e frasi rim i 
ste. 
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Queste devono essere digitate nelle istruzioni DATA secondo lo schema 
dato: 

linea 2000: una lista di aggettivi di persona, ognuna di una sillaba, e non ini- 
zianti con una vocale. 

Inizia la linea digitando due volte il numero di parole presenti 
nella linea. Sia i numeri sia le parole devono essere separati 
dalla virgola. Non digitare spesso tra le parole. Se ne hai molte 
da inserire puoi continuare nelle linee successive (2010, 2020, 
2030) sempre con istruzioni DATA. Lo stesso vale per le altre li¬ 
ste descritte qui sotto. 

Inoltre non bisogna mettere numeri nelle linee aggiunte. Per e- 
sempio in tutte le righe comprese nel ‘2000’ il numero delle pa¬ 
role deve essere espresso in linea 2000. 

linea 3000: una lista dei tipi di persone di due sillabe. È meglio che l'accen¬ 
to cada nella prima sillaba, ma contando potrai farle andare be¬ 
ne tutte. 

linea 4000: una lista di nomi di persona seguita da una lista di nomi di loca¬ 
lità. Devi avere lo stesso numero di nomi in entrambe le linee. I 
nomi devono essere sempre di due sillabe con I accento sulla 
prima. Inizia la linea 4000 con due numeri: il primo corrispon¬ 
dente al numero dei nomi presenti in ogni linea, il secondo al 
doppio. 

Ilnrm 5000: frasi che descrivono ciò che fece la persona. Devono rimare 
con il nome della persona e delle località presenti nella riga 
4000. Il loro ritmo deve essere “di, do, di, di, da, di”. Puoi avere 
quante frasi vuoi da rimare con ogni nome, ma devi avere lo 
stesso numero di linee rimate per ogni nome. La linea 5000 ini¬ 
zia con il numero delle frasi per nome e con il numero totale di 
tutte le frasi nel raggio “5000”. 

J)||M 0000 serie di frasi rimate su ciò che fece la persona, ma che devono 
rimare con “DAY” o con “NIGHT". Il ritmo per queste frasi de¬ 
ve essere: ‘da’, ‘di', ‘di', ‘da’. La linea 6000 inizia con il numero 
delle frasi ritmate con “DAY" e con il doppio del numero. 

«)00 una lista di parole di tre sillabe descriventi il giorno e la notte, 
con l'accento sulla prima sillaba. La linea inizia con il doppio 
del numero delle parole. 
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linea 8000: una lista di aggettivi di persona di due sillabe con l’accento sul¬ 
la prima. Inizia la linea con il doppio del numero delle parole. 

Se trovi tutto ciò alquanto complicato, inizia a sostituire alcune parole dal 
testo iniziale, poi, se vorrai, ne aggiungerai di nuove. 







m una certa abilità ed una buona dose di fortuna puoi in poco tempo 
riunire un alto punteggio al FLIPPER. Questo è un gioco per tutti i com- 
nli (lolla famiglia, anche per i più giovani. Dopo alcune partite sarai ten¬ 
di provare ancora per riuscire a superare il tuo punteggio record. 


io giocare 

minio dui II comando RUN, Il programma impiega poche decine di se- 
I pai liM'dorire le specifiche del Flipper nella memoria. Poi il Flipper 
inni «olio sinistra del video, ed il pannello del punteggio sulla destra. Il 
n tini l lippnr è munito di torrette circolari, di colore rosso e verde. Ogni 
i'lia In pulì,i le scontra vengono assegnati 100 o 200 punti. Il punteggio 
i vnlln .«igiornato nel pannello di destra. Il Flipper ha inoltre nume¬ 
rila dova può cadere la palla. Questa potrebbe rimbalzare sulla par- 
ilolln losca, ma non c'è punteggio per questo. Se invece vi cade 











If - 

II 

I 

dentro ti viene assegnato un punteggio che può essere 500, 1000, 1500 in 
funzione del colore della tasca. 

Hai 8 palline a disposizione, il numero di quelle giocate viene di volta in 

( volta evidenziato nel pannello del punteggio. Quando il piano appare, la pri¬ 
ma pallina sta già rimbalzando da destra a sinistra in cima al Flipper. Quan¬ 
do ritieni che sia il momento giusto premi un qualsiasi tasto. La palla viene 
lasciata andare ed inizia la sua corsa verso il basso. Da questo momento de¬ 
vi solo guardarla rimbalzare e, con un po’ di fortuna, vederla finire in una ta¬ 
sca. 

Appena la pallina entra in una tasca e raggiunge il fondo di un piano, 
un'altra pallina appare in cima al Flipper pronta per essere giocata. Quando 
tutte le 8 palline sono state giocate il tuo punteggio viene confrontato con il 
record. Tutto è già pronto per una nuova partita e la prima pallina già rimbal¬ 
za in cima al piano di gioco. 

Tattica vincente 

È divertente cercare di far cadere la pallina direttamente nella tasca nera 
in cima al Flipper. Ma probabilmente otterresti un punteggio maggiore fa¬ 
cendo scorrere la pallina lungo il piano e lasciandola rimbalzare contro le 
torrette. Con un po’ di pratica scoprirai che vi sono alcuni gruppi di torrette 
che si rimandano la palla molte volte, procurandoti un punteggio alto. Tutta¬ 
via c'è un elemento casuale, equivalente alle variazioni meccaniche presenti 
in un flipper reale, che impediscono i rimbalzi all’infinito tra le torrette. Tal¬ 
volta la serie di questi rimbalzi ha lunga durata, ma normalmente è limitata. 

Digitazione 

Controlla attentamente le istruzioni DATA dopo che le hai digitate. Un er¬ 
rore potrebbe causare un rimbalzo inaspettato o rovinare l'immagine del vi¬ 
deo. 

I caratteri di controllo usati sono: 

CLEAR: 

CTRL-5: 

CTRL-7: 

CTRL-1 : 

CTRL-6: 

CTRL-3: 
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linea 50. 

linee 220,310,410,420. 

linee 240, 280, 320, 350, 360, 400, 410, 420. 

linee 250, 330, 410 

linee 280(2), 300(2), 360, 390, 410, 420. 

linee 280, 290, 310, 320, 340, 370, 380, 390, 410, 4.-0 









Le linee comprese tra la 230 e la 430 creano l'immagine video. Alcune di 
queste linee contengono ‘L’ e T che sul video compaiono rispettivamen¬ 
te come perni, tasche e blocchi di colore. 

È consigliabile salvare questo programma su supporto esterno antece¬ 
dentemente al suo primo utilizzo. 


Sezioni del programma 

i’O -150 Inizializzazione e trasferimento dei simboli speciali e del piano di 
gioco alla RAM. 

UH) 170 Inizializzazione del chip VIC-II ai simboli speciali in RAM. 

1A0-210 Visualizzazione della pallina in giallo su ogni posizione del Flip¬ 
per (anche questo è giallo, cosi le palline risultano invisibili). 

•90 430 Costruzione immagine video. 

44o soo Rimbalzo della pallina in cima al video, finché un tasto non viene 
premuto (la pallina è blu, in modo che si possa vedere). 

|10 000 Movimento della pallina. 

••0 HO Aggiornamento punteggio. 

100 MA) Subroutine per aggiornare il punteggio sul video. 

min 040 Subroutine per creare effetti sonori. 

1000 1010 Istruzioni DATA per simboli speciali. 

HI0 1200 Istruzioni DATA per il piano di gioco. 


Punti di Interesse 

I Utili ilnlln linee 1120-1260 devono essere direttamente accessibili e non 
|| ItNMiiitii quindi usare le istruzioni DATA. Poiché ogni valore è più piccolo 
(Il 1 1 ili* I ditti vengono posti in locazioni RAM come singoli bytes e posso- 
Sfff lutti velocemente con un’istruzione PEEK. Questi dati contengono 

le Intuì uni. Inni In codice per ogni locazione del piano e, soprattutto, come la 
IHIMIim 1 1"■ ti muoversi in rimbalzo; inoltre forniscono informazioni per il cal¬ 
iffi" 'le! Illlllleqqlo 
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10 REM *# FLIPPER ** 

20 CN=12288:CH=53248:SG=54272:VC=56334 
30 FORL=1TO24:POKESG+L,0:NEXT 

40 G=1024 :H=55296:POKESG+5,8 :POKESG+15,175:POKESG+24,15 
50 PRI NT " □" : CHR* <124 >; 

60 POKE53280,4 : P0KE53281,7:P0KE52,48 :P0KE56,48 
70 POKEVC,PEEK(VC)RND254:POKE1,PEEK <1> RND251 
80 FORJ=0TO463 
90 POKECN+J,PEEK < CH+J > 

100 NEXT 

110 F0RJ=12552T012559 
120 POKEJ,255 
130 NEXT 

140 F0RJ=12568T012591:RE80X:POKEJ,X:NEXT 
150 F0RJ=12752T013276:RERDX:POKEJ,X:NEXT 
160 POKE1,PEEK<1)0R4:POKEVC,PEEK<VC)ORI 
170 P0KE53272,< PEEK < 53272> RNO240) +12 
180 FORJ=0TO20 
190 FORK=0TO24 

200 POKEH+J+40#K,7 :POKEG+J+4@#K,37 
210 NEXT:NEXT 
220 Dt= M i! ! ! !" 

230 PRINTTRB<21>D* 

240 PRINTTRB<21>D$ : " CLIPPER" 

250 PRINTTflB<10>"■#";SPC<10);D* 

260 PRINTTRB<21" ■# 1500" 

270 PRINTTfiB<21>D*;" # 1000" 

280 PRINTTRB<2) "IP" ;SPC<4> ; "rat" ;SPC<5) ;SPC<4> ; "IP " ; 

SPC<2>;D$;" 3# 500" 

290 PRINTTRB<21>D$;" f*t 200" 

300 PRINTTRB<10)"UT";SPC(10);D$; ” IP 100" 

310 PRINTTRB<21 > 0 * :PRINTTR6<7>"»#";SPC<5>;;SPC<7>; 

D$?" 

320 PRINTTRB<21>DT:PRINTTRB<4> "!»$";SPC<11>;"*";SPC<4>; 

D*:" SPRLLR 1" 

330 PRINTTRBOV'a#" ;SPC<1>;"#" ;SPC<9>;0* 

340 PRINTTRB<21>D$!»*##******" 

350 PRINTTRB<2>"3#";SPC<15>:"#";SPC<2>;D$ 

360 PRINTTRB<8> "IP" ;SPC<3> .: "1" ;SPC<8> ;D$ ; “ 3PUNTEGGIQ" 

370 PRINTTRB<21>D*:PRINTTRB<4>"r**";SPCC11)?“$";SPC<4>;D*; 

" 000 " 

380 PRINTTflB<21>D*:PRINTTfiB<2Ì>D*;" :**♦**#****" 

390 PRINTTRB <6 >"$";SPC < 3 >;" IP ";SPC < 3 >;"SP "?SPC < 6 >;D* 

400 PRINTTRB<21>D*;" 31RX":PRINTTRB(21>0$ 

410 PRINTTRB < 1 > "3#" ;SPC< 1 > ; "!*$" ;SPC< 1 > ; "m" ;SF'C( 1 >"IP" ; 

SPC <1;SPC <1>;"H"» 

420 PRINTSPC<l>;"iP";SPCd>;"*»";SPC(l>;"!i*" ;SPC< 1 );"3*"I 

SPC.( 1 } ;D$“ 000 

43© PRINTTRB(21>D$ ? 

440 F0R.J=1T08 

450 P0KEG+476,J+48:VX=1:VV=1:2=0sN2=0 
460 NZ=Z+VX 

470 POKEH+2,7 :P0KEH+NZ,6:2=N2 
480 IF2=20RNDVX=1THENVX=-1:GOTO500 
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490 IFZ=0THENVX=1 

■500 GET fi# : IF R#=""THEN460 

M 0 Q=Z+12752 : P=PEEK < Q > HND15 :RN=INT < RND < 1 > *6 > 

520 IFP=12THENGOSUB800:GOTO630 

530 I FP=15THENP0KEH+1NT <Z/21>#40+Z-1NT<Z/21>*21,7:GOSUB900: 

GOTO680 

540 IFP=0ftNDVV=—1fiHDRN<4THEHVV=1:GOTO630 
550 IFP=3ORP=7THEHVX=0SGOTO630 

• '60 IFP=4RNDRN>2RNDVX=0THENVX=4-RN 
’ >70 IFP=5GRP=6THEND=1 

580 IFO=1RNDVV=1RNDRN>3THENVX=0:GOTO630 

5‘>0 R=PEEK < Q > RND 1 :1 FR= 1 RNDVX= 1 ORR= 1 fiNDVX=0THENVX=-1 

• 00 R=PEEK < Q >RND2:1FR=2RNDVX=-1ORR=2RNDVX=0THENVX=1 
».10 R=PEEK(6>RHD4:IFR=4RNDW=1THENVV=-1 

620 R=PEEK<Q>fiNDS :IFR=8RNDVV=-1THENVV=1 
». >0 NZ=Z+VX+21*VV:GOSUB810 
<40 POKEH+INT <Z/21> *40+Z-1NT < Z/21> *21,7 
«Mi POKEH+I NT < NZ/21 > *40+NZ-1 HT < NZ/21 > *21, 6 
«•«•0 Z=NZ:O=0 

• ,n GOTO510 
< M0 NEXT 

1 “I IFSM<STHENSM=S:3=0 :SM#=STR# <SM > 

"0 S=0:FORL=1TOLEN<SM*>:P0KEG+948+L,fìSC<MID#CSM#^L,O>:NEXT 
r I0 GOSUB900:GOSUB900 

0 FORL=708TO716:P0KEG+L,32:NEXT 
. <0 HOT0440 

rum P0KEH+1 NT < Z/21 > *40+Z-I NT < Z/21 > *21,7 

• 10 ' P=PEEK < Q > RND240:SN=INT < SP*100/16 > 

0-0 I f SN>200flNDP<>12THENGOSUB900sRETURN 
n <0 I y SN=0THENRETURN 

*4H •.-'.+SN:S#=STR*<S> 

«5» | i)RL=1TOLEN<S#>:POKEG+708+L,RSC<MID*<S#,L,1>">:NEXT 

tu »» 0OSUB900 
« 1*11 I I rURN 

*00 I "H 53280.RN+6:POKESG+1,90+SN/100 

• 10 (‘OKI SG+4,21 

■»*» MIRI 1TO200 :NEXT 

• • "Il 53280,4:P0KESG+4,20 
•t» Il rURN 

l»»0 ORTR0.24.60.189,189,189,153,126,60,66,189,165,165,189, 



6fc* .r t»0 

01» lui III». 60,126, 126,126,126,60.0 

»v » HirmiO,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9 

».» IH1111. ».0,0,0,0,0,0,0,5,252,6,0,0,0,0,0,0,0,0,1 

|IMO I >11 III. ». 0,0,0,0,0,0,0, 1,0,2,0,0,0,0,0,0.0,0,1 
IH.» l'Mlll. .0.0.0,0,0,0,0,0,9,8,10,0,0,0,0,0,0.0.0.1 
|ll«» l'Iilli. 1 ,20,22,0,0,37,36,38,0,0,0,37,36,38.0,0,21,20, 

22,1 

•""'1.17.0,18,0,0,33,0,34,0,0,0,33,0,34,0,0,17,0,18,1 
Mll In -5.24,26,0,0,41,40,42,21,20,22,41,40,42,0,0,25, 

24,26,1 

liti III. 0.0.0.0,0,0,0,0,17,0,18,0,0,0,0,0,0. 0,0,1 

Ufi III, 1 .0.0, 0 , 0 , 0,5, 172,6,25,24,26,5,172,6,0.0,0,0,0,1 

(HI III. ».»,0,0,0, 1,0,2,0,0,0.1,0,2.0.0. 0,0,0.1 
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1120 DRTR2,0,0,37,36,33,9,8,10,0,0,0,9,8,10..37,36,38,0,0.1 
1130 DATR2,0.-0,33,0,34,0,0,5,252,7,252,6,0,0,33,0,34,0.-0, 1 
1140 DRTR2,0,0,41,40,42,0,0,1,0,3,0,2,0,0,41,40,42,0,0,1 
1150 DflTR2,5,92,6,0,0,0,0,9,8,3,8,10,0,0,0,0,5,92,6,1 
1160 DRTR2,1,0,2,0,0,0,21,20,22,0,21,20,22,0,0,0,1,0,2,1 
1170 DRTR2,9,8,10,0,0,0,17.0,18,0,17,0,18,0,0,0,9,8,10,1 
1180 DRTR2.0,0,37,36,38,0,25,24,26,0,25,24,26,0,37,36,38,0, 

0,1 

1190 DRTR2.0.0,41,40,42,0,0,0,0,0,0,0,0,0,41,40,42,0,0,1 
1200 DRTR2,0.0,31,30,32,0,0,0,0,0,0,0,0,0,31,30,32,0,0,1 
1210 DRTR2,0,0,0,0,37,36,38,0.21,20,22,0,37,36,38,0,0,0,0,1 
1220 DRTR2,0,0,0,0,33,0,34,0,17,0,18,0,33,0,34,0,0,0,0,1 
1230 DRTR2,0,0,0,0,33,0,34,0,17,0,18,0,33,0,34,0,0,0,0,1 
1240 DRTR3,92,39.36,39,172,23,20,23,252,4,252,23,20,23,172 

39,36,39,92,3 

1250 DRTR3,0,35,0,35,0,19,0,19,0,3,0,19,0,19,0,35,0,35,0,3 

1260 DRTR15,15.15,15,15,15,15,15,15,15,15,15,15,15,15,15,15, 

15,15,15,15 

READY. 







CAPITOLO 15 

FERROVIA 



Onusto è un gioco di strategia per due o quattro giocatori. Lo scopo è 
Mitilo di stendere per primo la ferrovia lungo il percorso assegnato dal com¬ 
puti» «t far passare un treno dall’inizio alla fine di tale percorso. 

Corno giocare 

himn <11 dare inizio al gioco i partecipanti devono stabilire in quale ordine 
tanno intenzione di giocare. 

( tigni giocatore ha un suo colore: 

t" giocatore - nero 
r" glooatore - rosso 
11" giocatore - rosa 
<t giocatore - blu 

| Mt ruggini chiede inizialmente quante persone vogliono giocare. Bisogna 
H|) illgiiMin un numero da 2 a 4 e poi premere 'RETURN'. Ora il computer 
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sceglie casualmente il percorso per ogni giocatore e lo evidenzia sul video. 
Tappe di tale itinerario sono città note. Ogni percorso inizia in una città, pas- - 
sa attraverso un’altra e termina in una terza città. Ogni giocatore dovrebbe 
scrivere i nomi delle proprie città. Quando tutti hanno terminato premi un 
qualunque tasto. Le città appaiono sul video come blocchi di colore, posti 
casualmente in specifiche zone del video: 


SINISTRA CENTRO DESTRA 


ALTO 


MEDIO 


BASSO 


I colori delle città non sono da confondersi con i colori delle stazioni. Nel 
video la sistemazione delle città è alfabetica e non geografica. Cerca di i- 
dentificare le città del tuo itinerario e quando senti il “tuu-tuu", è il turno del 
primo giocatore. Sarà poi il colore del bordo a tener conto dei turni ed a re¬ 
golare lo svolgimento del gioco. 

Nella prima fase del gioco bisogna stendere i binari. Essi iniziano dalla pri¬ 
ma stazione e proseguono se si premono uno alla volta questi tasti: 

U verso l’alto 

H verso sinistra 

J verso destra 

N verso il basso 


Quando premi un tasto appare nel video un nuovo binario del tuo colore, li 
primo tratto di binario che stendi può essere solo diritto e può uscire da ogni 
lato della prima stazione. Se cambi direzione nel turno successivo il compii 
ter fornisce un binario curvo puntante verso la direzione voluta. 


Aye 

Burnley 

Cardiff 

(porpora) 

(verde) 

(blu) 

Derby 

Everton 

Felkirk 

(giallo) 

(arancione) 

(marrone) 

Grimsby 

Halifax 

Ipswich 

(rosa) 

(grigio scuro) 

(grigio chiaro) 
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Ogni giocatore costruisce la ferrovia premendo uno dei tasti, sopra indica¬ 
ti, quando il proprio colore appare sul bordo. 


Le regole della costruzione sono qui di seguito riportate: 

1 ) Lasciando una stazione il binario è sempre un pezzo dritto (mai curvo) ; il 
computer è programmato per fare automaticamente questo. 

?) Le inversioni ad U non sono ammesse: se, per esempio, provi a girarti 
verso Nord, quando il tuo binario precedente era rivolto verso Sud, il 
computer ti lascia la possibilità di premere un secondo tasto. Curva verso 
destra (o sinistra) due volte di seguito (in due turni distinti). 

t) Non si possono collocare i binari nelle posizioni già occupate da altri gio¬ 
catori, fa eccezione il caso in cui due binari vengano a formare un incro¬ 
cio ortogonale, in questo caso il computer disegnerà l’incrocio. 

4) Quando i tuoi binari hanno raggiunto una stazione, occorre che tu prema 
ancora il tasto per farli entrare correttamente. 

ti) l’or uscire da una stazione si può prendere qualsiasi direzione che non 
nla già stata presa da altri. 

0) I ciascun lato di ogni stazione non può uscire più di un binario. 

f ) Nnn entrare nelle stazioni estranee al tuo percorso. Il computer non te lo 
può impedire, ma in seguito non sarai in grado di completare la seconda 
imito del tuo gioco. 


In tim/ione della collocazione delle stazioni e dei percorsi assegnati, può 
Aiamlnm che venga bloccata la strada dai binari di altri giocatori. La situa- 
A cosi complessa che il computer non può gestirla e quindi evitarla. 



I |fl Un caso del genere i giocatori possono accordarsi di interrompere la 
(.ai iiiu i i«m i (cominciarne un'altra, o di giudicare perdente il giocatore che è 

HfflMMo bloccato. 

(tu (tilt (tuniche ragione commetti un errore, o decidi di modificare il tuo 

C mmuii puoi rimuovere i binari uno alla volta. Quando è il tuo turno premi il 
Ui uno in boccia rivolta a sinistra. L’ultimo binario collocato viene rimosso 
il tomo p.r. „i al giocatore successivo. Puoi togliere tutti i pezzi che vuoi 
■ ultimo •.lozione visitata. 
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Il punteggio viene aggiornato automaticamente e compare in fondo allo 
schermo con i colori corrispondenti ai giocatori. I punteggi assegnati sono i 
seguenti: 

1 per ogni binario collocato 
-10 per ogni incrocio con i binari di un altro giocatore 
10 per la posa dei binari verso la seconda stazione del percorso 
20 per la posa dei binari verso l’ultima stazione 
50 per essere il primo treno ad arrivare alla stazione fi¬ 
nale. 

Quando un giocatore completa la linea fino all'ultima stazione, inizia per 
lui la seconda fase del gioco. In questa fase il treno del giocatore viene auto¬ 
maticamente mosso lungo il percorso dall’inizio alla fine. Un numero casua¬ 
le (da 1 a 4), che compare nell’angolo in basso a destra del video, determina 
quanta strada il treno dovrà fare ad ogni turno. 

Non ti preoccupare se il treno cambia colore passando sopra un incrocio 
'+’, perché riacquista il proprio colore una volta che lo ha superato. 

Il gioco finisce quando: 

1) Il primo treno entra nella stazione finale 
o 

2) Due treni si scontrano in un incrocio. 

Il vincitore è il giocatore con il punteggio più alto. 


Tattica vincente 

Una tattica può essere applicata nella prima parte del gioco. Lunghe serie 
di binari diritti forniscono un buon punteggio. Quindi pianifica il tuo percorso 
evitando inutili curve che non danno punti. Rimuovere i binari è una perdila 
di tempo e comporta una rilevante perdita di punti. Questa è un’altra ragiono 
per pianificare la costruzione. Inoltre devi cercare di prevedere le mosse do 
gli avversari e rendere loro la vita più difficile possibile: per esempio ricordati 
che si entra ed esce dalle stazioni solo attraverso i lati liberi, quindi devi co 
stringere i tuoi avversari a fare la strada più lunga. Ricordati inoltre che piu 
corto é il tuo percorso e più veloce sarà il tuo treno ad arrivare a destina/lof 
ne. 
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Digitazione 

La linea 30, così com’è listata, è troppo lunga per essere digitata. Quando 
lo farai usa le abbreviazioni standard: per AND scrivi 'A' seguito da SHIF I 
con ‘N’, per ‘THEN’ scrivi T seguito da ‘SHIFT’ con ‘H’. 

I caratteri di controllo usati sono: 


SHIFT-CRL: 

CTRL-7: 

CRSR-DOWN: 

CTRL-3: 

HOME: 

CTRL-1 : 

CTRL-5: 


linee 80, 260, 330 

linee 80, 280(2), 290, 2030 

linee 260(2), 280, 300(2), 1200(2), 1300(2) 

linee 280(2), 290(2), 2020 

linee 1200, 1300, 2010 

linea 2020 

linea 2020 


Caratteri non listati: 

C=/2 :linea 2030. 


Sezioni di un programma: 

20 70: Inizializzazione. 

Ito 90 : Richiesta del numero dei giocatori. 

100 250: Costruzione tabelle e selezione degli itinerari. 

100 320 Visualizzazione itinerari. 

090 :i!>0 Visualizzazione delle stazioni e dei punteggi (inizialmente nulli). 

ino 100 Punto di rientro per l’inizio del turno di ogni giocatore: effetto so¬ 
noro. 

400 >100 Attesa dei comandi dei giocatori. 

4 f0 030 Analisi della mossa richiesta. 

Bf0>0no Raggiungimento di una stazione. 

■00 Uno Houtines per l’asportazione dei binari. 

■ooo 11 HO Movimento dei treni nella seconda fase del gioco, 
unto l.'io l Ine del gioco: collisione. 

BQ0<1:um) I ino del gioco: arrivo del primo treno. 
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2000-2040: Subroutine per visualizzare i punteggi. 

3000: Subroutine per la temporizzazione degli effetti sonori. 

3500-3610:Subroutine per i fischi sonori. 

4000: Subroutine per le sbuffate. 

5000: Istruzioni DATA per la scelta del tipo di binario richiesto. 


10 REM ** FERROVIA ♦♦ 

£0 G=1024:H=55296:S=54272:C=532S0 

30 S*<0 > = "flVR" : S* v 1>=-BURNLEV":S$ < 2 >="CORDIFF" 

40 S*<3> = "DERBV" :S*<4> = ,, EVERT0N" :S»<5> = "F0LKIRK" :S*<6>=' 

'GRIMSBV 

5ti S$<7 >=" HALI FAX " : S* < 8 > = " IPSWICH " 

60 DEF FNR<X>=INT<.RND<0*<X+1>> 

70 F'OKE C,6:P0KE 53281,7 :GOSUB30O0 

80 PRINT"3S" :INPUT"QUANTI GIOCATORI ";P$ 

98 P=VAL<P*>:IF PC2 OR P>4 THEN 40 

100 DIMOX<3,3>,PX<3,10>,SX<1,8>:FOR K=0 TO 3:FQR J=0 TO 3: 

READ DX < J, IO :NEXT:NEXT 

110 FORJ=0TO 8 

120 SXC0,J)=82 + INT<J/3>*280 + <J-INTCJ/3>*3>*13 + 

FHR <9 > + FNP'5'*40 

130 NEXT 

140 FORJ=0TO P-l 

150 PX<J,0>=FNR<8>: IF SX<1,PX J.0>> =4 THEN 150 

160 SX < 1 , PX < J , O > > =SX 1, PX < J , 0 :■ >+1 

170 PX < J,1>=FNR <3 >:IF SX <1,PX< J,1>>=4 THEN 170 

180 I FF'X < T , 1 > =PX < J , 0 > THEN 170 

190 SX<1,PX(J,1)>«SX<1,PX <J ,l>>+2 

200 PX<J,2>=FNR<8):IFSX<1,PX<J,2>>«4THEN 2O0 

210 IFPX<J ,2> =PX<J, 1 ) OR PX< J , 2 > =F'X <: J ,0> THEN 200 

220 SX<1,PX<J,2>>«SX<1,PX<J,2>> +1 

230 PX<J,3>«SX<0,PX <J,0>> 

240 PX<J,10> = 16© 

250 NEXT 

260 F'RINT"3 PERCORSI 
270 FORJ=0TOP-1 

280 F'R INT"3" ; J+1 ; TAB -:8 > " [jfiA” ; TRE:< 18> "3v' IR" ; TRB128 > " 

290 PRINT"3"jTRB<8>S*<PX<J,0>>;"3";TRB<18>S*<PX<J.1>>;"[3 "• 
3O0 PRINTTRB<28>S$<PX<-T,2>> ;"HS" 

310 NEXT 

320 GETRi:IFA$=""THEN320 

330 F'R I NT :POKEC,0 :P0KE53281,15 

340 FOR J=0 TO 8:POKEH+SX<0,J>,J+4::POKEG+SX<0,J>,160:NEXt 

350 GOSUB 2000:PN=-1 

360 PN=PN+1 

370 IF PN=P THEN PN=0 

380 POKEC,PN*2 : GOSUB 3500 

390 IFPX CPN,7 > = 1THEN1OOÙ 

40O GETA$:IFR*=""THEN400 
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410 IF fl*="U" THEM D=0:GÒTO470 
420 IF 0$="J“ THEM D=i:GOTO470 
430 IF fi*="N" THEM D=2:GOTO470 
440 IF FlT="H" THEM D=3:G0TO470 
45© IF Rf = " *r" THEMS00 
460 GOT0400 

470 EL =P7i< PN,3 > :CD=PX<PM, 4 > : IFPEEK < G+EL > = 160 THEM C0- 0 
480 NP=DX<CD,0> :IF MP=0 THEM 400 
430 IF CD=0 THEM NL=EL-4@ 

500 IF CD=1 THEM NL=EL+1 

510 IF CD=2 THEM HL=EL+4© 

520 IF CD=3 THEM NL=EL~1 

530 IFNL70ORML>959ORCD= 1RNDNL. '40= INT■: NL. '40>0RCD=3HMD' NL+l ' 

40=INT<<ML +1 >. 40>THEM630 

540 IFPEEK< G+ML) = 160THEM 640 

550 IFPEEK<G+ML>=93 ANO NP=<S4 QRPEEK<G+ML> =64 HMD NF-93 

THEM NP=91 : G0T0570 

5* -O IFPEEK <G+ML> O32THEN630 

570 POKEH+NL.PM*2 sFOKEG+NL,MP 

5. :m IF MP=91 THEM SC=-1©:G0SUB 2000 

*.'ii IF MP=93 OR NF-64 THEM SC=1 :GOSUB 2000 

• M" 1 FEL=S*i<0, F'V. <PM ,0> >THEM PX<PN,8)=D 
MM IFEL=SK<0,P5i<PN, 1 )JTHEM PJi<PN,9>=D 
i./O P2<PM,3)=NL:P?i<PN,4>=0 

r. ili GOTO 360 

• •III IF ML=SK<0,PK<PN,1>) HMD PX<PN,6>=0THEMP?i<PM,6> = l :SC=10 : 

GOSUB 2000 

•MI IF NL=SK<0,PK<PM,2>> HMD PK<PM,6>=1 HMD P/KPN ,7 >=0 

THEM 670 


'•" "OTO620 

• I :; < PM ,7>=1 :PS< PN , 3 >=£■: < O , P‘i < PM ,©): S£>2© : GOSUB 2000 

biiii i."10360 

umi I L«PX<PN,3> :IFPEEK<G+EL>=160 THEM 368 
Min IFPEEKCG+EL)=91 THEM 930 
uni OR J=0 TO 3 

bm II D‘:<.J,P^i:.PM,4>)=PEEKi:G+EL:> THEM D=J 


tMO 

mi :<T 

o'.n 


PM,4)=D 

Ul II 

l "1 1 :g+EL,32 : POKEH+EL , 1 

fri'ii 

II 

11*0 THEM PL=EL+40 

ni.il 

II 

U 1 THEM FL=EL-1 

tt«U 

II 

11 2 THEM PL=EL 40 

•III 1 

II 

li : THEM F‘L=EL+1 

• lo 

|\ 

• IH,3>=FL:SC=-10:GOSUB; 

*. il 

i il 11 il 160 

.• m 

li 1 

I L- PM,4) 

• III 

II 

U 1 OR 0=3 THEMPOKE G 

ne,n 

IIU n OR D=2 T H E N P 0 K E G+E L 



i i I i 1070 

il il I IP■ : » +1 :SC=0:GOSUB 

I "I I I TO RM 

U l . I ll.u i :EL=PK<PN,3> 

|HI ii,p:j'PM, 1 'THEM D*PK<PN,9> 

II U il UH M ML=EL-40 


64 :POKEH+EL,PEEK < H+EL-1 
2000 
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1050 IF D=1 THEH HL=EL+1 

1060 IF 0=2 THEH HL=EL+40 

1070 IF 0=3 THEH NL=EL-1 

1088 NP=PEEK<G+ML > : IFHF'=S 1 THEH 1200 

1090 IF PJi<PH,10>O160 THENPOKE G+EL,PX<PN, 10> 

1100 IF NPO 160 THEH POKEO+HL.Sl 

1110 IF HL=S:2:0,P;;..:PH,2 ■ • fino Fri(. F'H, 6 > =0 THEH 1300 

1120 PX<PN,6>=0:FOR K=0 TO 3 

1130 IF DX<D,K>=NP THEH PX• PN , 8 > =K 

imo hext 

1150 PJi<PN,3>=NL :PK<PH , IO >=NP 
1160 GOSIJB 4000 
1170 NEXT 

1130 G0T036U 

1200 PRIHT" 5 IS 5 J SCONTRO DI TRENI" 

1210 GOTO 1210 

1300 PRINT"affili IL 1 » TRENO E' ARRIVATO!" 

1310 SC=5:GOSUB2000 

1320 GOTO1320 

2000 P y. < PN, 5 > =PK < PN, 5 >+SC 

2010 PRINT" 3" ;SPC<255);SPC<255 >;SPC<255>;SPC <195 > 

2020 PRINTTHB 1 2> ";PJi<0,5> ;TAB< 8 > ; "ft§" ;p:;< i ,5> :TAB- 14 > " I" ; 

pv f 2 5 

2030 PRIHTTRB'.22> "3" ;PX<3,5> ;TRB<35 > " " ;RN; 

2040 RETURN 

3000 FORZ=0 TO 24:POKE S+2,0 :NEXT:RETURN 
3500 GOSUB 3000 

3510 POKE S+5,46 :PONE S+ 6 ,0 :POPE S+24,15 

3520 POKE S,96 : POKE 3+1,51:PGKF S+4,17 

3530 POKE S+12,41 : POKES+13,39 

3540 POKE S+7,96 : F'OKES+8,51: POKES+11.129 

3550 F0R2=1 TO 200:NEXT 

3560 POKE S+4,16:P0KES+11,128 

3570 F0RZ=1 TO 200:NEXT 

3530 POKES+4,17:P0KES+11,129 

359G FORZ= 1 TO SGO.-HEXT 

3600 GOSUB3000 

3610 RETURN 

4000 GOSUB3000 

4810 POKES+5,132 :POKES+6,128:POKES+24,15 

4020 POKES,114:POKES+1,11:POKES+4,129 

4030 F0RZ=1 TO 100:NEXT 

4040 POKES+1,205 

4050 F0RZ=1 TO 200:NEXT 

4060 GOSUB3000 

4070 RETURN 

5000 DATA 93,75,0,74,85,64,74,0,0,73,93,85,73,0,75,64 

READY. 


Variazioni 

Se vuoi ambientare meglio il gioco, cambia i nomi delle città (linee 30-.‘•0> 
in quelle di tua scelta. 
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CAPITOLO 16 

ROMPICAPO 



Onesta è la versione per computer di uno dei giochi più popolari finora in¬ 
ventati. Il computer ti propone un problema e tu devi trovare la risposta aiu- 
l*ln dalle indicazioni che ti fornisce. Questa versione ti mette in condizione 
•Il «lahllire il livello di difficoltà che tu puoi affrontare e di incrementarlo 
•ttinndi) ti sentirai più sicuro. 


Citme giocare 


l idea del gioco è questa: segretamente il computer sceglie una serie di 
nlMtli o pezzi. Questa può essere composta da qualsiasi numero di pezzi 
I l a li Ogni pezzo può corrispondere a uno qualsiasi dai 3 agli 8 colori. 
mimmi inoltre avere 4 forme differenti (cuori, quadri, fiori, picche). Quan- 
I olia n inizia ti viene chiesto quanti pezzi vi devono essere, quanti colori, 
«Min fiume diverse possono comparire nella combinazione. Se decidi di 
•nln una forma, questa sarà un disco. Con 3 pezzi di 3 colori, e tutti 
| Uhimwi forma, vi sono 27 combinazioni possibili, ma con 6 pezzi di 8 co- 
I h 4 Ini me, il numero delle combinazioni sale a 1.073.741.800. 
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Poi il computer formula una combinazione, ed il tuo compito è quello d'in- 
dovinarla. 

Dopo di questo sul video appare “TENTATIVO N. 1" e ti viene chiesto: 
“COLORE?”. A seguito di questa richiesta devi premere uno dei tasti del co¬ 
lore (tasti da 1 a 8) sulla tastiera in alto. Il colore è specificato sulla parte 
frontale di questi tasti ad eccezione del bianco, tasto numero 2, che è stato 
cambiato in marrone. Se tu hai richiesto tutti gli otto colori, puoi premere 
qualsiasi di questi otto tasti ma, per esempio, se hai richiesto solo quattro 
colori soltanto i primi quattro tasti saranno convalidati. Dopo che hai scelto il 
colore, un dischetto del colore corrispondente apparirà vicino al fondo dello 
schermo. Quello che accadrà in seguito sarà dipeso dalla tua scelta di una o 
più forme. Se hai richiesto solo una forma, la richiesta “COLORE?” persiste 
tu devi inserire il colore del simbolo successivo fino al comparire della scrit¬ 
ta “CONFERMI? S/N”. Questa compare quando hai digitato tutti i pezzi e la 
combinazione è completa. Se vuoi confermare digita ‘S’ altrimenti digita ‘N’ 
per rinunciare ad inserire la combinazione. Quando digiti ‘S’ la tua combina¬ 
zione scompare dallo schermo in basso per collocarsi in alto a sinistra. Ora il 
computer confronta la tua combinazione con la sua. Questa operazione im¬ 
piega alcuni secondi e poi compare una serie di strisce colorate a fianco del¬ 
la tua combinazione. I colori di queste strisce hanno i seguenti significati: 

Blu: un pezzo di colore giusto al posto giusto 

Rosso: un pezzo di colore giusto. 


Fai attenzione che la posizione delle strisce non ha nulla a che fare con la 
posizione del pezzo nella tua combinazione. Per esempio, una striscia blu 
posta all’estrema sinistra significa che uno dei pezzi (non necessariamente 
quello di estrema sinistra) è del colore giusto e nella giusta posizione. I o 
strisce sono i suggerimenti del computer per modificare la tua combinazio¬ 
ne. Se sei veramente sfortunato potresti non avere nessuna striscia perché 
hai scelto delle forme e dei colori completamente differenti da quelli selezio¬ 
nati dal computer. Se, diversamente, hai una o più strisce blu sei sulla stradi! 
buona per vincere. 

Ora ti viene chiesto di fare il 'TENTATIVO N. 2’. Questo va fatto come noi 
caso precedente. La combinazione del computer non è cambiata cosiceli*, 
servendoti delle indicazioni fornite, potresti migliorare la tua combina/ inno, 
Quando hai digitato e confermato il secondo tentativo, questo viene tro-.< ili 
to sotto la descrizione del tentativo precedente ed appare un’altra sur in ili 
strisce. Ti sono permessi 16 tentativi. Se uno di essi corrisponde alla combll 
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nazione scelta dal computer, hai vinto e nel video compare il relativo mes- 
saggio. Se, dopo 16 volte, non sei riuscito ad indovinare la combinazione na¬ 
scosta, sul video appare il messaggio relativo alla vittoria del computer- Al 
termine del gioco la combinazione del computer compare sulla parte bassa 
dello schermo. 

Se decidi di avere più di una forma il gioco è un pochino più compl esso - 
Ad ogni tentativo ti viene chiesto di digitare il colore e, come prima, un 
schetto dello stesso colore appare sullo schermo in basso, poi ti viene anco¬ 
ra chiesto la 'FORMA?' che devi selezionare premendo uno dei tasti A, S. Z, 
X. Le varie forme sono riportate nella parte frontale di detti tasti. Se richiedi 
2 forme, quelle fornite sono: picche e cuori. Se ne richiedi 3 avrai anche i 
quadri. Chiedendone invece quattro vengono compresi anche i fiori. Quando 
premi il tasto per la scelta della forma, il disco diventa del colore della forma 
voluta. Poi ti viene richiesto il colore del secondo pezzo, e cosi via f' no a 
completare la combinazione. Al termine dovrai confermare digitando ^ ■ 

Con la possibilità di più forme, le strisce di suggerimento possono essere 
Ini questi 6 colori: 


( Hallo: 

(llu: 

Vorde: 

Azzurrino: 

limino: 


pezzo di colore giusto nel posto giusto con la forma giusta. 

pezzo di colore giusto nel posto giusto (ma con forma sbagli 3 * 3 )- 

pezzo di colore sbagliato nel posto giusto e con la forma giusta. 

pezzo di colore giusto nel posto sbagliato e con la forma giusta. 

pezzo di colore giusto nel posto sbagliato e con la forma sbaglia¬ 
ta. 


Poi pi ii a pezzo di colore sbagliato nel posto sbagliato e con la forma giu¬ 
sta. 


Mutuiulmente l’interpretazione di questi suggerimenti richiede un P° di 
lnMip" mn questo è il fascino della versione colore-forma. Nella versib ne di 
nolo OOlore hai 16 tentativi ed al termine il computer presenterà la sua com¬ 
bino don* 



li n vincente 

BpAll#/nrn<« il filo logico è un lavoro complesso, specialmente quando so- 
foiloviiiii' molte forme e colori. È troppo laborioso entrare nel merito t- a 
n nolii/ione è di essere sistematici, impostando combinazioni tutte di 
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un colore e di una forma e poi variando la combinazione successiva, fare e- 
sperienza su uno o due pezzi cercando di capire le differenze dei risultati ot¬ 
tenuti. Ma tra i tanti procedimenti logici dai qualche volta spazio alla tua ispi¬ 
razione. 

Digitazione 

Vi sono 8 spazi nella stringa in linea 460. Fai attenzione allo spazio dopo il 
punto interrogativo della linea 300 e al punto e virgola nella linea 1000 e 
1010 . 

I caratteri di controllo usati sono: 

CLEAR: linee 50, 160 

CTRL-7: linee 50, 180, 210, 300 

HOME: linee 180,1000 

CRSRDOWN: linee 50, 180, 870, 1010 

CRSRRIGHT: linea 180(3) 

CTRL-3: linee 440, 770 

CTRL-1: linea 180 

CTRL-RVSON: linea 810 

Sezione del programma 

10-40: Inizializzazione. 

50-100: Richiesta per il numero di pezzi, colori e forme. 

110-150: Scelta casuale dei pezzi da parte del computer. 

160-290: Richiesta per il colore. 

300-420: Richiesta per la forma. 

430-480: Richiesta per la conferma. 

490-500: Evidenziazione delle combinazioni nella parte alta del video, 

510-540: Controllo per i pezzi che corrispondono nel colore e/o nella fot 
ma nella corretta posizione. 

550-620: Controllo per i pezzi che corrispondono nel colore e nella forum 
630-710: Controllo per i pezzi che corrispondono nel colore o nella fornii» 
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720-770 


Controllo se il giocatore ha formulato la combinazione giusta 
780-790: Azzeramento delle tabelle e preparazione per un nuovo tentativo 
800-810: Il computer vince. 

820-910: Azzeramento tabelle e preparazione per la partita successiva. 
1000-1030:Subroutine per il movimento del cursore. 

2000-2030: Subroutine per costruire una stringa di simboli. 

3000-3060: Subroutine per azzerare le tabelle. 

4000: Codice per i colori e le forme. 


in REM ** ROMPICAPO +■* 

, 0 DIMC V. <5,2> , P‘/. (. 5,3> :G= 1024 :GC=G+142 :H=55296 :HC-H+142 
Ki FOR J= 1T08 : RERDCCX < J > : NEXT : FORJ=0TO4 : READSCX •; J > : NEXT 

10 DEF FHR<X> = INT<RND<1>) +1 

"in PRI NT " □" : POKE53280,6 : P0KE53281,1:1 NPUT " SS PEZZI < 3-6 > " NFS 
> n t (F-VRL<NP*>: IFHPC3ORNP>6THEN50 
,n INPUT"H COLORI <3-8>";NC* 
a ItC=VAL<NC*>: IFNC<30RNC>8THEH50 
<n INPUT"H FORME <1-4>";NS$ 
l m i NS=VHL<NS$ >: IFNS<1ORNS>4THEN50 
I in FORJ=0TONP—1 
120 O:<J,0>=FNR<NC> 

I n CX<J,1>=FNR<NS> 

I4H PJi< J,2>=0 :PX< J,3)=0 
f n NEXT 

11 u PRIHT"3" 
l.'n J»0 

|nn PRINT" cft»»»E TENTRTIVQ N. " ; J+l 
I >n » ORK*=0TONP-1 
■(HI LN*20:GOSUB1000 
.in PRINTTflB<4> M aC0L0RE? 

I.'tl ni IR* : IFR$=" "THEN220 
fin 1 ;M<,0>=RSC<R*>-48 

|4n ii p::<:k,0><iorpx*;k,0»ncthen200 

fin I.OSUB2000 
•«il l II 22:GOSUB1000 
Jrn I i INITREK 10>PT 
#".i tl M 1THEN420 
•un hi .11;GOSUB1 000 
tfttn I I IIITTRB<4>"SFORMA? " 

•In ni tH»:IFR*=""THEN31© 

Blfn II MI " R " ANDATO " S " ANDATO " X " RNDAtO " Z " THEN310 
«in IMI :.hUDAT="X"THEH310 
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340 IFNS=2RNDR**"Z M 0RNS=2flNBflS="X"THEN310 

350 IFR$="R"THENPJÌ<K, 1) = 1 

360 IFA*= " S " THENPX < K, 1 > =2 

370 IFfl*="Z"THENPX<K, 0=3 

3fi0 IFR$="X"THENPX<K, 1>=4 

330 GOSUE2000 

400 LN=22 : GOSUE1000 

410 PRINTTRBC10>P* 


420 NEXT 

430 LN=20 : GOSUB1000 

440 PRINTTflB<4)"KCONFERMI? <S/N> 

450 GETflt ; IFfl* = ""THEN450 

460 LH=22 : GOSUB1000 : PRINTTflB<10) 

470 IFRÌ="S"THEN490 

430 FORK=0TONF'-1 ; PX<K, 1 )=0 : NEXT : GOTO 130 
430 LN=J+3 : GOSUB1000 
500 PRINTTflB<10)P* 

Ì0 IFPX < k! 0 ) =CX < K, 0 ) THEHPX < K, 2 ) = 1 ^ PX < K, 3 ) =6 ■ CX < K, 2 ) = 1 

530 IFPX < K, 1 ) =CX < K, 1 ) THENPX <K.,2) = 1 : PX<K/3)=PX < K > 3 ; OR j • CX < K j. 2 ^ ~ 1 
540 NEXT 

550 FORK=0TQNP-1 

560 I FF'X< K, 2> = 1THEN620 

570 PC=PX<K<0) : FS=F'X<K , 1 ) 


530 M=0 

590 IFCX<M/ 2) = 1TFIEN710 _ 

600 IFPC=CX(M..0>RNDPS=CX<Mj 1 )THENPX(KX2 


1 : F'X < K ^ 3 ) =3 : CX < N .■ 2 ) = 1 
:GOTO620 


610 

6i:0 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 


M=M+1■IFMCNPTHEN590 
NEXT 

FORK=0TCiNP- 1 
IFPX<K,2)=1THEN710 
PC-=PX<K,0):PS=PX<K, 1) 

IFPC=CX<M/ 0)THENPX<K.■ 2) = 1 PX<K, 3)=2 : CX<M, 2> = 1 ' GOTO710 
IFPS=CX<M,1 )THENPX<K> 2) = 1 : PX<K,3>=4 : CX'.M.. 2> = 1 ■ GOTO710 
M=H+1 :IFMCNPTHEN670 
NEXT 

X=0:FW=0 : F0RK=7TQ1STEP-1 

IFK=PX<r > N3)THEHPOKEHC+JJti40+XiK : POKEGC+J*40+X,255 X-X+l 

■ FW=F ri • I 


750 NEXT:NEXT 

760 FF=7 : IFNS=1THENFF=6 

770 IFFU=FF*NPTHENLN=20 : GOSUB1000 : PRI NTTflB (4) "ISHRI VINTO MI" 

: G0TD8 n 

780 GOSUB3000 

790 J=J+1:IFJC16THEN180 

800 LN=20 : GOSUB1000 

810 PRINTTRB<4) "BRINCE IL COMPUTER ! 5 " 

820 P*= M " 

830 FORK=0TONP-1 

840 IFNS=1THENCX <K,1>=0 

850 P$=P$+CHR$ < CCX < CX< K, 0 ;• ) ) +CHR$ < SCX < CX < K, 1 ) ) ) 

360 NEXT 

870 PRINT"W";TRB<16)P$ 
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880 GETA$ : IFfi$=" "THEN380 
890 GOSUB3000 

900 FORK=0TONP-1 : U < K, 1 > =0 : NEXT 
910 GOTO50 

1000 PRINT"3"; :FORL=1TOLH 
1010 PRINT"M"; 

1020 NEXT 

1030 RETURN 

2000 P$="":FORM=0TOK 

2010 P$=P$+CHR$<CU<C y. <M,0>>>+CHR$<SU<C V. <M,1>)> 

2020 NEXT 
2030 RETURN 
3000 FORK=0TONP-1 
3010 FORM=0TO3 
3020 P '/.<.K, M> =0 
3030 NEXT 
3048 U < K, 2 ) =0 
3050 NEXT 
3060 RETURN 

4000 BRTA144,129..28,159, 156,30,31,158,113,97,115,122,120 


READY 















Questo è un gioco di parole per 2 o 4 giocatori. Lo scopo è di costruire una 
parola con le lettere che il computer sceglie e visualizza sul video. Più lunga 
è la parola e più alto è il punteggio. 


Come giocare 

Il computer inizialmente chiede di inserire il numero dei giocatori che de¬ 
vo essere 2. 3 o 4. Impostato il numero e premuto ‘RETURN’ il video viene 
i (incollato e preparato per il gioco. La parola ‘POZZO’ mostra dove apparirà 
Un gruppo speciale di lettere, come spiegheremo più tardi. Il punteggio viene 
nvidenziato nella parte inferiore dello schermo. Il messaggio ‘PRONTI?’, nel 
i mitro dello schermo, significa che il computer è disponibile per iniziare. 
Oliando tutti sono pronti, premi la barra spaziatrice. 

I a quattro serie di lettere che appaiono in alto nello schermo corrispondo¬ 
no ni numeri indicati. Vi potranno essere lettere singole come ‘A’, ‘B’ o ‘H’ o 
i optile di lettere come ‘AD’ o ‘PR’, o gruppi di tre lettere come ‘ING’ o ‘AND', 
i Lo ncopo è di formare una parola con uno o più di questi gruppi. Le parole 
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formate da gruppi singoli come ‘A’, ‘ME’ o ‘AND’ non contano, sebbene tu 
possa assiemare ‘ME’ con ‘M’ ed ’E’ o ‘AND’ con ‘A’, ‘N’ e ’D’. Non puoi usa¬ 
re lo stesso gruppo di lettere più di una volta. Il programma provvede che i 
giocatori rispettino queste regole. 

Dopo aver composto una parola premi la barra spaziatrice. Se due o più 
giocatori pensano di aver formulato una parola, il primo che preme la barra 
spaziatrice è quello che gioca. Nel video compare il messaggio ‘GRUPPI?’: il 
giocatore che ha formulato la parola digiterà i numeri corrispondenti ai grup¬ 
pi di lettere necessari per comporla. Digitati nell’ordine in cui vengono usati. 
Per esempio, i gruppi possono essere 1=‘Y’, 2='AND', 3=‘LA’ e 4=‘H’. Per 
comporre la parola ‘HANDY’, digita 421 e premi la barra spaziatrice. Imme¬ 
diatamente appare la parola nel centro dello schermo e ti viene chiesto: 
‘CONFERMI? (S/N)’. Se tutti i giocatori concordano che la parola è valida 
digita ‘S’. Ora il computer chiederà: ‘CHI?’ per sapere a chi attribuire i punti 
(un punto a lettera), allora devi digitare il numero del giocatore. Quindi i 
gruppi di lettere vengono sostituiti con nuove serie e i giocatori possono pen¬ 
sare alla nuova parola da comporre. 

A volte non è facile formulare una parola con le lettere disponibili. Se nes¬ 
suno preme la barra spaziatrice entro 20 secondi viene cambiato uno dei 
gruppi. I numeri posti sul centro, (a destra dei gruppi di lettere) vengono 
cambiati ad ogni secondo, per la durata di 20 secondi, così è possibile con¬ 
trollare il tempo rimasto disponibile. Se tutti concordano che non è più possi¬ 
bile comporre parole con le lettere presenti sul video, occorre premere il ta¬ 
sto F7 per cambiare uno dei gruppi senza dover attendere i venti secondi. O- 
gni volta che viene cambiato un gruppo il computer incrementa il bonus del 
punteggio di 1. Al giocatore che per primo compone una parola verrà asse¬ 
gnato tale bonus. 

Se la parola non è scritta correttamente o risulta non valida per qualsiasi 
ragione, digita ‘N’ quando il computer chiede: ‘CONFERMI?’. Le prime due 
lettere della parola vengono visualizzate nel ‘POZZO’ ed il giocatore non ri 
ceve punti. Ora è possibile usare il pozzo come quinto gruppo, digitando ’P’ 
durante la composizione. Se usufruisci del pozzo riceverai 10 punti extra. Il 
pozzo rimane invariato finché non viene utilizzato, o aggiornato dalle primo 
due lettere della nuova parola errata. Il gioco prosegue finché uno dei gioca¬ 
tori consegue il punteggio di 100. 


Digitazione 

Vi sono diversi spazi bianchi nelle seguenti linee: 30(8), 130(1), 280(1), 
310(1), 330(4), 350(1), 580(2), 590(4), 680(4) e 3060(3). E punti e virgola 
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nelle linee 80, 190, 280, 680, 1000, 1020, 2030 e 3060 che sono essonzlnll 
per ottenere una buona immagine. 

I caratteri di controllo sono: 


CLEAR: 

CTRL-7: 

CTRL-3: 

CTRL-RVS OFF: 
CTRL-5: 
CTRL-RVS ON: 
CTRL-l: 

HOME: 

CRSR DOWN: 
CRSR LEFT: 


linee 20, 60 

linee 40, 330 

linee 130, 420, 590, 680 

linea 280 

linea 330 

linee 420, 670, 3060 
linee 670, 3060 
linea 1000 
:inea 1020 
linea 3060(3) 


I caratteri non listati sono: 

C=/2: linee 150 (prima di punteggi), 2030 

C=/5: linee 280 (dopo CTRL-ZERO) 


Sezioni dei programma 

10-60 Richiesta numero giocatori. 

70-210 Immagine iniziale. 

220-250 Prima serie di gruppi. 

260-310 Attesa della formulazione della parola. 

120-430 Composizione della parola. 

-140-490 Richiesta di conferma. 

'■00-570 Punteggio. 

680-690 Visualizzazione vincitore o preparazione dello schermo per il tur¬ 
no successivo. 

1000-1040 Subroutine di posizionamento della stampa. 

1000-2050 Subroutine per il punteggio. 
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3000-3080 Subroutine per la scelta casuale di un gruppo di lettere. 
4000-4040 Istruzioni DATA contenenti i gruppi di lettere. 


10 REM m BAROLIAMG ** 

20 PRIMT"3"sPOKE 53280,2«P0RE53281,15 

30 B*=" ":FP=1 

40 INPUT "3 QUfiNTI GIOCATORI <2-6>";NP* 

50 NP=VflL<NP*> :IFNP'.:2 OR NPO6THEN20 
60 PRINT"3" 

70 FORJ= 0 TO 3 
80 PRINTTRBCS+T* T > J+l : 

90 NEXT 

100 LN=6:GOSUB1000 
110 PRINTTRBC18>"POZZO" 

120 LN=11 :GOSUB1000 
130 PRINT"3" ;TRB(6 >"PRONTI? 

140 LN=17:GOSUB1000 

150 PRINTTRB<6>"PUNTEGGI :" 

160 LN=19 
170 GOSUB1000 
180 POR J=0 TO NP-1 
190 PRINTTAB<8+4#J>J+1; 

200 NEXT 
210 GOSUB20O0 

220 GET R*:IF RT="“ THEN 220 
230 FORC=l TO 4 
240 GOSUB3000 
250 NEXT:C=0 

260 TI$="000000";T$= " ":NG=8:FOR J=1 TO 4: F<J>=1:NEXT 
270 LN=11 :GOSUB1000 

280 PR I NT " ■" TRB < 32 > STR* <I NT CTI /60 ? > ; " " ; 

290 GET A* 

300 IF R^=CHRT*' 136> OR TIO120O THEN C=C+1 SGOSUB3000 :B=B-*-l : 

GOTO260 

310 IF fi$0 " " THEN 270 

320 LN=11:GOSUB1000 

330 PR I NT " ^ ; TRB < 6 > " GRUF’P I ? 3 " ; 

340 GET A$ 

350 IF fl*=" "RHD NGM THEN 410 

360 IF fì$="P"RND FP=0 OR A$="l"ANO F(l)=l OR fl*="2"AND F<2>-l 

THEN 39U 

370 IF fìi= ,, 3" RND F<3> = 1 OR A*="4" AND F<4> = 1 THEN 390 
380 GOTO 340 

390 IF A$= "P" THEN T*=T*+P:$ :FP=1 :NG=NG+1 :PB=10 :PRINT"P" ; s 

GOTO 340 

400 T*=T$+L* CVAL<R*>>:F<VAL<fi*>> =0 :NG=NG+1 :PRINT A$ ; : 

GOTO340 

410 LN=14 :GOSUB1000 
420 PRINT"^a" ;TRB<13>T$ 

430 LN=1:GOSUB1000 
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440 PRINTTRB<6>"CONFERMI? <S/N>";B* 

450 GET fi*:IF Ri="" THEH 450 

460 LN= 14 :GOSUB 1000 : PRI NTTflB< 13 5 E'i ;B$ 

470 IF RÌ="S" THEN 500 
430 IF A$=' , N" THEN 650 
490 GOTO450 

500 LN=11 :GOSUB 1000 :PRINTTflB < 6 >"CHI?";BÌ 

510 GETflT:IF Ai="" THEN 510 

520 IF VflL(ft*Kl OR VRL■ Hi >>NP THEH 510 

530 S < VAL < R$ > >=S <VAL <A$ >>+LEN <Ti > +PB+B:B=0 

540 GOSIJB2000 

550 FOR J=1 TO NP 

560 IF S<J> = >100 THEN WP=J 

580 I*F FF-1 THEN LN=3 : GOSUB 1000 : PR INTTRB < 19 > 

590 LN=11 :GOSUB1000:PRINT"3";TR6<6>"PRONTO'’ 

600 IF WP=0 THEN 230 
610 LN=11 : GOSUB 1000 

620 PRINTTRB<6)"IL GlOCRTORE";WP;"VINOE ! 

630 GETAi:IFAÌ=""THEN 630 
640 FORJ=l TO 4 :S< J.'=0 sNEXT 
650 PÌ=LEFTi •: Tf ,2> 

660 LN=8:GOSUB 1000 
-- ~*0 PR I NT " ia" ; TRE: < 19 > Pi : FP=0 : PB=0 

0 LN= 11 : GOSUB 1000 : PR I NT " M" TRB < 6 > " PRONTO Y " ; Bt 

5 GOTO230 
50 F'RINT"aJ" * 

10 FOR J=1 TO LN 
20 PRINT"S1" 

30 NEXT 
>0 RETURN 

000 LN=21:GOSUB1000 
IO FORJ=1TONP—1 
20 SC$=STRÌ<S<J+1 .)> 

130 F'R I NT " ” ; TRB < 8+4* J > SCi ; 

i40 NEXT 
(50 RETURN 

ino N=INT<RND<1>*105>+1:IF C=5 THEN C=i 
10 FORK= 1 TO N 

20 RERDXi 
130 NEXT 
140 L$<C>=XÌ 
imi LN=3:GOSUB1000 

U.0 PR I NT " 13" ; TRB < 8+7* < C-1 > > *’ liil'';LÌ<C> 

170 RESTORE 
luti RETURN 

imi i DRTRfl, R t RB , RD , RN , RR ^ RT , RND , AVEB , BA , BEBL, BR , C .■ Cfì , CE , 

CH , DOR , DE , DO , E.. E , E 

in DATA E,EA,ED,EE,EN,ER,ELL,EHT,EST,F,FA,FE,FO,G,GE,GR,H, 

HR,HE,HI-HO 

I.'II ( iRTR I , I , IN, ING, ISH, I VE, J ,L ,Lfl,LD,LE,LI ,l-L,LO,H,MA -ME, 
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4030 DfìTfl N,NR, ND,NE,NO,0,0, OT,OND,P ,PR,PE,F'R,PLE,PER,R,Rfì, 

RE ,RI1,RT,RRT,RCH,S 

4840 DRTR Sfl,SE,SO,SL,ST,SH,T,T,TR,TE,U,V.VE,W,Wfl.WO.V 
RERDY. 


Variazioni 

La selezione dei gruppi di lettere può essere variata per adattarla a gioca¬ 
tori differenziati per età o per gruppo linguistico. Per rendere più difficoltoso 
usare il pozzo, è sufficiente portare da 3 a 4 il numero delle lettere che devo¬ 
no essere prese dal pozzo. È sufficiente modificare il '2', nella linea 650, con 
un ‘3’ o un ‘4’. Potrebbe essere d’aiuto aggiungere una routine per segnalare 
acusticamente la sostituzione di un gruppo di lettere. 
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CAPITOLO 18 

CAMPO MINATO 



Sei un prigioniero di guerra che sta fuggendo per raggiungere le proprie li¬ 
imo. Tra te e la salvezza è steso un campo minato che devi attraversare a 
piodi. Questa zona è brulla, con soli pochi alberi e cespugli. Il nemico si è 
accorto della tua evasione e, per il fatto che sei un alto ufficiale, t’insegue 
por impedirti di tornare vivo dietro le tue linee. Il nemico ha inviato veicoli 
blindati per pattugliare il campo minato, con l’ordine di sparare a vista. Seb¬ 
bene rappresentino un pericolo per te possono esserti anche di aiuto. Se ti 
lloni fuori vista e osservi dove vanno i mezzi blindati puoi scoprire il passag¬ 
gio attraverso il campo minato ed oltrepassarlo sano e salvo. Ma è sufficien¬ 
ti) ciré tu metta un piede in fallo per essere scaraventato in aria da una mina. 
Quando ti avrà avvistato inizierà a spararti, ma non può vederti se ti nascon¬ 
di in un cespuglio. Però fai attenzione che i mezzi blindati non evitano i ce- 
h|HK|li. semplicemente li schiacciano. Questo potrebbe essere fatale se sei 
nascosto in quel cespuglio. Nonostante questo rischio, i cespugli sono un 
posto in cui nascondersi perché non vi sono mine occultate. 
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Come giocare 


Il gioco è regolabile a 10 livelli dei quali il più facile è il primo. Più il livello 
è alto, più fitte sono disposte le mine. Oltre il quinto livello il nemico può spa¬ 
rare da più lontano. Nei livelli superiori (dall'ottavo in su) le autoblinda di¬ 
struggono i cespugli passandovi sopra. Se impieghi troppo tempo per attra¬ 
versare il campo minato resterai con pochi nascondigli disponibili. 

Quando hai scelto il livello di gioco e premuto ‘RETURN’, il video viene pu¬ 
lito, le mine vengono stese (sebbene tu non le possa vedere) ed i cespugli 
vengono collocati in zone non minate. Poi i veicoli neri del nemico appaiono 
nella parte alta dello schermo. Tu sei il carattere rosso che compare nell’an¬ 
golo in alto a sinistra e la tua destinazione è l'angolo in basso a destra. Le ri¬ 
ghe, sia quella in alto sia quella in basso, non sono minate, cosicché quando 
raggiungerai il fondo potrai dirigerti verso l’angolo di destra preoccupandoti 
solo di non venire colpito dalle autoblinda. 

Queste si muovono per tutto il campo minato, inizialmente con una dire¬ 
zione verticale. Quando un’autoblinda si trova davanti ad una mina gira a de¬ 
stra e procede in una nuova direzione. Lo stesso accade quando incontra 
un’altra autoblinda. Per tutto il tempo sentirai il rombo dei cannoni e le gra¬ 
nate scoppiarti intorno. 


Puoi muoverti usando questi tasti: 

U verso l’alto 

H verso sinistra 

J verso destra 

N verso il basso 

Se non premi alcun tasto rimani nella stessa posizione. Non puoi uscire 
dal bordo dello schermo a differenza delle autoblinda. È quindi necessario 
tenere sotto controllo, specialmente il bordo opposto a quello in cui ti trovi, 
perché un'autoblinda potrebbe improvvisamente apparire alle tue spalle ed 
ucciderti. Dai livelli 4 in giù la portata del tiro delle autoblinda è di una riga o 
di una colonna. In altre parole l'autoblinda deve trovarsi nella posizione adin 
cente nel senso verticale od orizzontale. Dal livello 5 in su la portata è esto-.n 
a 2 righe o colonne. Quando sei nascosto in un cespuglio le autoblinda non 
possono spararti, ma se una passa nel cespuglio in cui ti sei nascosto vieni 
schiacciato. 

Il gioco termina con appositi effetti sonori e viene messo in evidenza 
quanto tempo hai impiegato per portarti in salvo. Se fallisci il tempo che in 
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pare sul video si riferisce alla tua sopravvivenza all'insidie del campo mln.i 
to. Premi la barra spaziatrice per giocare ancora. 


Tattiche vincenti 

Concedi qualche momento di vantaggio alle autoblinda per intuire il loro 
percorso. Ai livelli più bassi è facile che vi sia un passaggio rettilineo. Fai 
sempre attenzione alle autoblinda che attraversano il tuo percorso. Se c’è un 
cespuglio nelle vicinanze è meglio deviare ed andare a nascondervisi finché 
l'autoblinda non é passata. Guardati dalle coppie di autoblinda che viaggiano 
su sentieri paralleli, i loro cannoni coprono un’ampia area del campo minato 
ed è difficile sfuggirgli. Si incorre in uno dei pericoli più insidiosi quando 
un’autoblinda esce dal video per un bordo e compare improvvisamente dal¬ 
l’altro sorprendendoti. Se esce da sinistra riappare, una riga più in alto, a de¬ 
stra. Se esce da destra riappare, una riga più in basso, a sinistra. Se sei su 
un bordo è possibile che ti sparino dal bordo opposto. È questo il pericolo 
maggiore quando ormai sei sulla riga di fondo pronto per il rettilineo finale. 


Digitazione 

Non vi sono problemi speciali. I caratteri di controllo usati sono: 


CLEAR: 

CTRL-2: 

CRSR DOWN: 
CTRL-7: 


linee 80, 100, 700, 800, 900, 100 
linea 700 

linee 710(3,2), 870(3,2), 980(3,2), 1060(3,3) 
linea 1510 


I caratteri non listati sono: 

C=/8: linee 900 (dopo il CLEAR), 1000 (dopo il CLEAR). 


Sezioni del programma 

10 !>() Inizializzazioni delle variabili e suoni dei veicoli, 
tto fQ Richiesta del livello di gioco, 
ni) 180 Collocazione delle mine e dei cespugli sul campo. 
100 ?20 Azzeramento delle variabili. 
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230-390 Controllo mosse del giocatore. 

400 Movimento delle autoblinda. 

610-680 Effetto schegge di granata. 

700-790 Routine di vittoria. 

800-880 Routine della mina. 

900-990 Routine dello sparo. 

1000-1050 Routine di superamento del campo minato. 

1500-1510 Preparazione nuova partita. 

2000-2010 Subroutine per la durata delle note del motivetto di vittoria. 
3000-3010 Subroutine per azzerare i registri VIC II. 


Punti di interesse 

Le mine sono evidenziate sul video come asterischi (codice 42) ma finché 
sono di colore grigio chiaro (codice 15, linea 110) sono invisibili al giocato¬ 
re. Queste però non sono invisibili al computer che, con istruzioni PEEK nel¬ 
la linea 310 e 460, controlla se il giocatore o un veicolo stanno per andare 
sopra una mina. 


10 REM #*CRMP0 MINATO## 

20 G=1024 ; H=55296:DIMMX< 60),SX < 20) 

30 S=54272^ CB=53280:CS=53281 :GOSUB3000 

40 P0KES+14,8:P0KES+18,32:POKES+3,2 :POKES+24,143:POKES+6,242 

: POKFS+4,6". 


50 P0KECB,5 : P0KECS,15 : P0KE649,1 
60 POKES+7,100 : POKES+8,1 : PQKES+13,240 
70 P0KES+11,129:POKES+24,1 

80 PRINT"rr : INPUT"LIVELLO DI GIOCO <1-10>";LS 
90 L=VRLCL*>: IFLC1QRL>10THEN80 
100 FRINT"IT 

110 F0PJ=1TO30+3*L : MX < J > =RND <1> #920+40 :PQKEH+MX < J >,15 :P0KEG+ 

MX<J),42 NE I 

120 FORJ=1TO20:SX<J)=RND<1>#920+40 
130 FS=0:F0RK=1TO30+3#L 
140 IFSX(J > =MX < K)THENFS=1 
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no NEXT 

l'.o IFFS"1THEN120 
I ■ il POKES5i< J)+H< 5 : POKES?i< J)+G; 160 

IMO «EXT 

I n« I .0 P*0:PN=0:PD=1 : FS=1 : POKEG,209 POKEH,2 TI*-"000000" 

00 I ijRJ=1T05 

. io i J)*7*J : CNX r s J>=CX< J) : CD?i< J>=2 : POKEG+CX<J) .. 35 : PQKEH+PX< J * • m 

..•0 NEXT 

. ut ub'Tfl* 

. io lFfl$*"U"THENPN=P-40 
-Mi IFA$="J"THENPN=P+1 
*'*•11 II lt*="H"THENPH=P-l 
. . o IFR$»"H"THENPN=P+40 
.'ito IKPN<0ORPN>999THENPN=P 

/io 1I Ht="H" AND INKP/40 ) =P/40ORfì$= " J " AND I NT < <P+1V40 > = < P+1 )/40 

THENPN-P 

ioo I FPN=999THEN700 
Ho PG"PEEK<G+PN> 

I/O IFPG=42THEN800 
i io IFPG=35THENPN=P 
•IO 1FPN=PTHEN400 
J30 PQKEG+P,32+FS*128 
ir li IFFS= 1THENPOKEH+P > 5 : FS=0 
J.’o SS *PEEK(H+PN > RND7 
ino IFSS=5THENFS=1 

l'iO P-PH POKEG+P, 209 : POKEH+P, 2+FS#3 

400 J«1 

HO 1 FCD*i < J > =0THENCNX< J > ~CX < J > -40 

i. o ifcd;ì(j>=ithencn-:<j>=cxu)+i 

4 IO II LDX(J>=2THENCNX<J>=CXCJ;'+40 
•no IFCDX<J)=3THENCNX<J> =CZ<J >-1 

4-Ai 11- Ctr/. < J > C0ORCNX < J > >999THENCNX < J > =CNJi < J > -1 000#SGN< CNX < J > > 

4 t.o po-peek<g+cn;ì<j>) 

4/0 II PG=42ORPG=35ORPG=209THENCDX<J) =CDK< J> +1- CNJi< J) =CJJ< J) 
i o ii i;dx<J)=4thehcdx<j>=0 

l'io II FS*1THEN530 

mio H mbs<p-cn;;<j>> ifd=iord=40thenfg=i 

310 IIL>3RNDD=2ORL>5HNDD=80THENFG=1 

3/0 IFFG-1THEN900 

-.io IFPG=209THEN1000 

Mio II UN?i<J> =Cli<J>THEN600 

330 11 L / 8THENCCJÌ < J ) =0 

-.1 O i III EG+CX<: J> 1 32+128iHCCfi< J) 

'• o II i i..^<J)=lTHENPOKEH+CJ{<J),5:CC«<J)a0 

380 PS-PEEK<H+CNX<J))RHD7:IFPS=5THEHCCX<J)=l 

9*0 I .1 >i»CNX< J> : P0KEG+C5i< J) > 35 : POKEH+CX< J) .• 0 : POKES+24* 1 

*00 J-J + l IFJC6THEN410 

r.|o II PND<1X.8THEN230 

«/o |p O000+1 NT(RND( 1 >#25000) 

» jo l ui I S+4 , 65 ; POKES+11 > 128 
*40 Poi I S+24,143 F0RJ=1T025 

*30 lo IP PEEK<S+27)#80 : HF=INT<FQ/256) : LF=FQ-HF*256 
fcr-0 PUH • LF POKES+1 .• HF 

fc/il llliXT 

*mo I ni 1.3+4.. 64 i F'QKES+12.. 2 : POKES+13.. 252 : PGKES+7.. 20 : POKES+8/2 


■ io OHI0230 


; POKES+11 » 129 
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7PI0 PR T NT " DT : POKECB , 6 ; POKECS , 2 : GO3UB38O0 

710 PRINTTRB(10)"J®ffl8SEI SCAPPATO ! ! !" : PRINTTRB<11)"MHIN"; 

INTCTI/60);"SECONDI' 


720 POKES+24,15:ROKES+5,1@0 : POKES+6,86 

730 FL=75 : FH-34:D=4 : GOSUB2000 : GOSUB2000 

740 FL=94:FH=32:D=2 : GOSUB2000 

750 FL=75 : FH=34:GOSUB2000 

760 FL=126 : FH=38 ; GOSUB2000 

770 FL=214 : FH=28 ; D=8:GOSUB2O00 

780 FL=177 :FH=25 ; GOSUB2000 

790 POKES+24,0:GOTO1500 

300 PR I NT " D" '■ GOSUB3G00 

310 POKES+24,15 :POKES+12,8 POKES+13,250 :POKES+7,20 : POKES+8,2 

PQKES+ll,129 


820 POKECB,O:POKECS,0 

830 FORK=1TO10 : NEXT 

840 POKECS,1 

850 F0RK=1T05:NEXT 

860 F'OKES+11, 123 : POKECS, 0 

870 PR I NTTRB < 12 > " WBW13EI SALTATO 


IN ARIA" ; PRINTTRB11)"MNDOPO"; 

INT < TI/60 >;"SECONDI" 


880 

900 

910 

920 

930 

940 

950 

960 

970 

980 


GOTO1500 

PRI NT" IT :POKECB,2 :POKECS,2 :GOSUB3O00 
POKES+24, 15 : POKES+6,240 : POKES, 56 : F‘OKES+1,27 


F0RJ=1T015 
POKES+4,129 
FORK=1T05 : NEXT 
POKES+4,128 
FQRK=1TQ20 : NEXT 
NEXT:POKES+24,0 
PR I NTTRB 13 > " MHWSEI 


STATO UCCISO":PRINTTAB<ll)"W«BOPO"; 

INT<T1/60);"SECONDI" 


990 GOTO1500 

1000 PRINT"d":POKECB,2 : POKECS,2 
1010 GOSUB3O00 

1020 POKES+24,15:POKES,144:POKES+1,23 
1030 FORJ=1TO1500 :NEXT 
1040 POKES+4,32 : POKES+11,128 
1050 POKES+24,0 

1060 PRINTTHE<10)"BMWSEI STATO INVESTITO" 


: PR I NTTRB<10 > " MMMDOPO" 

,INTa 1/60);"SECONDI" 


1500 GETR$: IFA40" "THEN1500 

1510 PRINT"3" : FG=0 : GOTO30 

2000 POKES,FL:POKES+1,FH'POKES+4,33 

2010 FORK=1TO120*D:NEXT 

2020 POKES+4,32 

2030 RETURN 

3000 FORJ-0TO24:POKES+J,0 : NEXT 
3010 RETURN 


READV. 
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Vnrlazloni 


il numero di mine stese è 30, più tre volte il livello di gioco (linea 70). Por 
irimirno il gioco ancora più difficile, aumenta il numero di mine. In questo 
i tino la linea 130 deve essere aggiornata con il nuovo valore. Puoi inoltre ag 
uiunyere veicoli nuovi modificando il valore di J nella linea 200. Riduci lo 
i|>n/lo Iniziale tra di loro cambiando il ‘7’, nella linea 210, in ‘6’ o '5’. Anche il 
valore in linea 600 deve essere cambiato in funzione di J. 

Aumentando il numero delle autoblinda si rallenta il gioco, di contro il tem¬ 
ilo piu lungo permette al giocatore di vagliare meglio le autoblinda. Si può 
n’iiilore il gioco più veloce cancellando la routine del suono nelle linee 610- 
0H0. 
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Almeno per una volta il 64 ha la possibilità di essere se stesso. Invece di 
fingere di essere un flipper, un funambolo o i pezzi di puzzle, può semplice- 
nmnte essere un computer, che fa cose da computer. 

Vibrazioni è un vero gioco da computer, ed è piuttosto differente da qual- 
oinM altro gioco o qualsiasi altra cosa reale. Questo è ciò che lo rende affa¬ 
li mante. Metterai a dura prova la tua abilità ed astuzia contro la velocità e la 
logica del computer. 


Come giocare 

Il viene inizialmente chiesto il livello di velocità. La velocità 1 è lenta e ti 
limi la molto tempo per premere un tasto, nonostante questo la soluzione del 
problema non é più facile. Ma quale problema? Non avere fretta questo sarà 
•ipo-ilo più tardi. È possibile che tu possa vincere alla velocità 10 se i tuoi ri- 
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flessi sono pronti per una decina di secondi. In seguito simboli differenti per 
forma e colore appaiono sullo schermo ed iniziano a vibrare. Alcuni si muo¬ 
vono in su e giù, altri a destra e a sinistra. Dopo pochi secondi il simbolo, 
nell’angolo in alto a sinistra del video, diventa nero. Nessuno degli altri sim¬ 
boli è nero, ed è su questo che il giocatore inizia. E ora si presenta il proble¬ 
ma. Devi saltare da un simbolo ad un altro fino a raggiungere quello situato 
nell’angolo in basso a destra del video. Puoi saltare da un simbolo ad un altro 
solo quando si stanno toccando in senso orizzontale o verticale. Se premi il 
tasto giusto, al momento giusto, riuscirai a saltare. Quando il salto riesce il 
simbolo sul quale eri posizionato riprende il suo colore originale e quello in 
cui momentaneamente ti trovi diventa nero... 

Per saltare premi uno dei seguenti tasti: 

U verso l'alto 

H verso sinistra 

J verso destra 

N verso il basso 


Non è una buona tattica tenere premuto un tasto per avvicinare i due sim¬ 
boli. Diversamente da quando giochi alla velocità più bassa, non è conve¬ 
niente premere lo stesso tasto in modo ripetuto. È sufficiente osservare i 
movimenti ritmici e premere una volta il tasto nel momento di contatto. 

Alle velocità inferiori il movimento dei simboli sembra sussultante. Infatti 
alla velocità 1 il computer attende per un secondo, prima di nuovere il sim¬ 
bolo nell’altra posizione, che tu prema un tasto. A velocità 10 il loro movi¬ 
mento è più omogeneo e tu hai solo una decina di secondi. 

Saltare da un simbolo all'altro è solo una parte del problema. Il gioco può 
essere immaginato come un labirinto dinamico. Anche se coppie di simboli, 
a prima vista, sembrano toccarsi ad intervalli regolari, non vengono mai, o 
raramente, in contatto. Per avere successo devi stabilire preventivamente il 
tuo itinerario, perchè saltare su determinati simboli ti porta ad un vicolo eie 
co. C’è almeno un passaggio possibile che attraversa lo schermo, ma è 
un’impresa rompicapo trovarlo. 

Quando raggiungi il simbolo, nell’angolo in basso a destra, il gioco finisce 
Premi la barra spaziatrice per rigiocare. 

I colori ed i simboli sono scelti casualmente così è difficile individuare il 
passaggio vincente nel tentativo successivo. 
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Digitazione 


I <’ '.olite raccomandazioni nella digitazione delle istruzioni DA!A o noll'u 
mi dol comando SAVE prima di RUN 

I caratteri di controllo usati sono: 

HOME: linee 30, 700 

CRSRDOWN: linee 40 (3), 700(3) 

CRSRLEFT: linee 40 (3), 700(3) 

CTRL-2: linee 40, 700 

Sezioni del programma 

20-30 Inizializzazioni variabili. 

40 50 Richiesta della velocità. 

70-180 Composizione dell’immagine. 

100 Costruzione programma linguaggio macchina. 

.'IO Inizializzazioni variabili. 

410 Messa a punto del video. 

4;*0 4b0 Oscillazione dei simboli. 

400 Posizionamento sul primo simbolo. 

•l 70 b50 Controllo tasto premuto. 

MIO Spostamento simboli di una posizione. 

70-010 Controllo sul movimento del tuo simbolo. 

700 730 Routine di vittoria. 

1000 1020 Subroutine per la costruzione dell’immagine. 

8000 2020 Subroutine per la selezione casuale dei simboli e dei colori, 
.■filili ;’!>10 Subroutine di ritardo. 

2700 2/20 Subroutine per controllare la posizione adiacente. 

.1000 Istruzioni DATA per i codici dei simboli. 


4000-4030 Istruzioni DATA per le locazioni dei simboli. 

5000-5090 Istruzioni DATA per le routine in linguaggio macchina. 


Punti di interesse 

La linea 60 prevede il blocco del buffer di tastiera, così questo non può 
contenere alcun carattere. Ciò comporta la digitazione a vuoto di qualsiasi 
tasto effettuata prima del momento voluto. Il buffer viene riabilitato nella li¬ 
nea 470, che permette la pressione di un carattere, questo verrà registrato, 
ed immediatamente dopo richiuso nella linea 490 determinando la fine del 
tempo a disposizione per la digitazione tasti. 

Le vibrazioni si basano su strisce orizzontali e verticali di simboli. Ad ec¬ 
cezione di uno, per ogni striscia, gli altri simboli sono di colore rosso su sfon¬ 
do rosso e quindi invisibili. È visibile quel simbolo, per ogni striscia, di colore 
diverso. La routine in linguaggio macchina muta, per tutti i simboli di tutte le 
strisce, il colore rosso in un altro colore sequenzialmente, in modo da cau¬ 
sare l’effetto del movimento e quindi della vibrazione. Se vuoi verificare co¬ 
me sono realmente le strisce, devi aggiungere temporaneamente questa li¬ 
nea al programma: 

35 POKE 53281,1 

Ciò deteriora l’effetto, ma rivela il meccanismo del programma. 


10 REM ** VIBRAZIONI ## 

20 L=0:M=0::P=0:N=0:G=1024:H=55296:B=12288 

30 PRINT"3“:POKE 53280,2:P0KE 53281,2:P0KE 52,48:P0KE 56,48 
40 INPUT " «*M»»M 7ELOCITR ' ( 1-10 V ;fi$ 

50 TF=VAL<R$>:IF TF<1 OR TF>10 THEN 30 

60 PRINT"3" :POK.E 649,0 :FOR J=0 TO 5: READCXCJ) :NEXT 

70 S=1sF=121 :X=1:6OSUB1000 

30 S=126:F=251:X=40:GOSUB1000 

90 S=2:F=252 : X=0 :GOSUB1000 

100 S=4:F=39:X=216:GOSUB1000 

110 8=44 :F=64:X=218 :GOSUB1000 

120 S=69:F=39:X=217:GOSUB1000 

130 S=94:F=124 :X=219 :GOSUB1000 

140 S=129:F=149:X=218:GOSUB1000 

150 S=154 :F=194 :X=216 :GOSUB1000 

160 S=199 :F=209 : X=219 :GOSUB1000 

170 S=214 :F=254 : X=217 :GOSUB1000 
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liti FORJ=0 TO £50 STEP 5: RERD R,N :F'OI I I : • l il il "Il I" " hi 

NEX I 

l ni POR J»12546 TO 12732:READ X: POKEJ,X:NEXT 
"'i RESTORE :FOR J=0 TO 5 :RERD X:NEXT 
in P0KE251,0:P0KE252,48 :P0KE253,0 
il FOR J=1 TO 25 
il GOSUB 200O 

in RERD X,V :IF J>3 THEN X=X+512 
IF J>13 THEN X=X-256 
>n IF J>18 THEN X=X+512 
.il IF J=1 THEN P=C 
ni) POKE H+X,C :POKE G+X,S 
'*0 FOR K=X+1 TO X+Y 
mi POKE H+K,2:POKE G+K,S 
110 NEXT:NEXT 
120 FOR J=1 TO 26 
i IH GOSUB2000 
•40 RERD X,V : X=X+512 
150 IF J>5 THEN X=X-512 
• » * IF J>14 THEN X=X+760 
i. " IF J>17 THEN X=X-512 
ino POKE H+X,C :F'OKE G+X.S 
r>i.1 FOR K=X+40 TO X+V*40 STEP 40 
UH) POKE H+K,2:POKE G+K,S 
IMI NEXT:NEXT 
». •) FOR J=1 TO 50 
I II svs 12546 
IH» GOSUB 250O 
450 NEXT 

• >•') L " H+9 : N=PEEK < L > RND7 : POKE L,0 
I. il PQKE649, 1 :TIÌ="000000" :R*=">* 

4'h) GET RT : IF R^= ,,M RND TI C60XTF THEN 480 

I") POKE 649,0: FI A*="U" RND L>H+33 THENM=L-40 

•un IF A*="H" THEN M=L-1 

’' 111 IF R*=”J" THEN t'1=L+l 

"•.'il IF fl*= ,, N" RND LCM+960 THEN M=L+40 

'• " N=PEEK<M> RND? 

in II N>2 THENPOKE L,P:POKE M,0 :L=M:P=N 
•mi || L=H+989 THEN 700 

• .r.n SVS 12546 

I' = -l : GOSUB 2700 :IF D=0 THEN 470 
Min D-l: GOSUB 2700:IF D=0 THEN 470 

•mi II L>H+39 THEN D=-40:GOSUB 2700: IF D=0 THEN 470 
i.i in IF L<H+960 THEN D=40 : GOSUB 2700 

• in GOTO 470 

. mi ppiNT-iztìHfisifleiuua^: i sei m*" 

m POKE 649,1 

il GET A*: IF R$O n " THEN 720 
.hi RESTORE: GOTO 30 
lumi FOR J=S TO F STEP 5 
in in POKE B+J,X 
in ii NEXT : RETURN 
nini . -i X<INT<RND< 1>*6>> 

.'Min i ■ INT<RND< 1 >*5>+3 


IMI 




2020 RETURN 

2500 FORK=1TO200:NEXT 

2510 RETURN 

2700 X=PEEK< L+D)AND? 

2710 IFX=0THENL=L+D ; D=0 
2720 RETURN 

3008 DRTA31,87,90,83/65,42 

4000 DATA7,6,228,4,24,6,208,2,57,5,183,7,95,3, 175,6,19,5,229,4, 

66,4,116,4,96,4 

4010 DATA37,4,254,2,119,5,169,3,151,2,1,4,215,6,46,4,201,6,53, 

5,167,4 

4020 BRTA101,2,61,4,228,6,115,7,160,5,156,7,14,5,250,5,23,3, 

~ ,r ^' > 2. i 3 1 > 3 f 12 > ? 

4030 DATAI82,5,47,5,51,4,0,5,134,2,45,3,2,2, 24U 7, 43,5 
4040 DATA207,6,53,7,191,6,118,3,5,7,15,5 

5000 DATA169,£54, 141,1,49,172,1,49,177,251,133,254,136,136,177, 

251,41,7,240,36 

5010 DATA170,136,177,251,141,0,49,136,177,251,24,109,0,49,144, 

2,230,254,202,208 

5020 DRTA245,168,177,253,41,7,141,255,48,169,2,145,253,76,65, 

49,136,136,177,251 

5030 BRTA76,43,49,172,1,49,177,251,133,254,136,177,251,141,0, 

49,136,177,251,41 

5040 DRTA8,208,19,177,251,41,7,205,0,49,208,20,177,251,24,105, 

8,145,251,76,114 

5050 DRTR49,177,251,41,7,208,4,169,0,145,251,177,251,41,8,208, 

10,177,251,24,105 

5060 DATAI,145,251,76,137,49,177,251,56,233,1,145,251,177,251, 

41,7,240,39,170 

5070 DATA136,177,251,141,0,49,136,177,251,24,109,0,49,144,2, 

230,254,202,208 

5080 DATR245,168,173,255,48,145,253,173,1,49,56,233,5,176,1, 

96,76 

5090 DATA4,49,136,136,177,251,76,164,49 
READY. 


Variazioni 


E possibile aggiungere degli effetti sonori senza diminuire sensibilmente 
la velocità del programma. La combinazione degli effetti ‘slide’ e delle vibra 
zioni dei simboli potrebbe renderlo irresistibile. 
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CAPITOLO 20 

POKER JOE 


poker joe ha m «finn 


* 

♦ 53 

• 2 

« J 9 


* 

* 

♦ 


* 

POKER JOE F ' RE IERI ESSO 

coso miio i e ore: ? 

POKER JOE Hfl UH IRIS 
E OinCE" 

TU 98 


q 

U 18 

« 7 
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Poker Joe è un tipo malinconico che abitualmente serba i suoi pensieri 
(mi sé; può occasionalmente sorridere soprappensiero. Forse ha in mano un 
poker servito, ma probabilmente sta solo bluffando. Ti sarebbe d’aiuto per 
vincere scoprire il suo reale stato d’animo. Se pensi che sia impenetrabile 
niima basati sulla speranza di avere la mano vincente. Questa è una partita 
brinata sulle regole del poker a 5 carte, per un giocatore ed il computer, nei 
panni di Poker Joe, come avversario. 


Come giocare 


Quando hai dato il RUN al programma, le tue carte sono indicate sul video 
vniiln, che simboleggia il classico panno verde da gioco. Hai 5 carte come 
Poker Joe; questi non te le mostrerà finché, nelle ultime sezioni di gioco, non 
linai 'Vedo’. 
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Le carte sono state distribuite casualmente da un normale mazzo da 52, 

senza jollies e mescolate dopo ogni partita. Gli assi hanno il valore più alto. 

Mentre Poker Joe studia le sue carte, tu hai tempo per esaminare le tue. 

Nel poker vi sono 16 tipi di combinazioni di gioco, che in ordine d’impor¬ 
tanza sono: 

Scala reale massima: cinque carte consecutive dello stesso seme, dall’as¬ 
so fino al 10. 

Scala reale: cinque carte consecutive dello stesso seme a partire 

da un valore diverso dall’asso (es. 7,6,5,4,3 di cuori). 

Poker: quattro carte dello stesso valore (es. 10 di picche, 10 

di cuori, 10 di fiori, 10 di quadri) più una qualsiasi al¬ 
tra carta. 

Full: tre carte dello stesso valore, più una coppia di un al¬ 

tro valore (es. 4 di picche, 4 di cuori, 4 di fiori, più 
una coppia di regine). 

Colore: cinque carte dello stesso seme, ma non in scala (es. 

3,5,6,J,A di picche). 

Scala: cinque carte in scala, ma non tutte dello stesso seme 

(es. 3 di fiori, 4 di picche, 5 di quadri, 6 di fiori, 7 di 
fiori). 

Tris: tre carte dello stesso valore più altre due carte qual¬ 

siasi. 

Doppia coppia: per esempio una coppia di 3 e una coppia di re con 

una qualsiasi altra carta. 

Coppia: per esempio: una coppia di 10 con qualsiasi altre 3 

carte. 

La carta più alta: se un giocatore non ha nessuna delle combinazioni 

finora enunciate la mano viene assegnata a chi ha la 
carta più alta. 


Nel tempo che ti è servito a studiare come utilizzare le tue carte, il corti 
puter ha analizzato sia la tua combinazione di carte sia quella di Poker Jon 
Le decisioni di Poker Joe sono descritte nello schermo. Quanto puoi sfrutti! 
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in questi dati sta a te deciderlo. Anche se il computor ha annll/znlo in lun 
< nmhinazione, le decisioni di Poker Joe non ne sono influenzato Ora II vitine 
Chiesto quello che intendi fare. 

Vi sono due scelte: 

i .ridare: quindi premere P. Ciò significa che presumi la tua combln.i/lo 
ne cosi priva di valore rispetto a quella di Poker Joe che proferì 
sci porre fine alle tue perdite e rifarti con la mano successiva 
Però, in questo caso, non puoi vedere che cosa effettivamente 
ha Poker Joe. Anche se avesse una combinazione inferiore alla 
tua, perdi un chip per abbandono. Il punteggio viene poi aggior¬ 
nato e appare nella parte inferiore del video. A questo proposito 
devi sapere che all’inizio del gioco hai in dotazione 100 chips. 

Vndere: quindi premere V. Sul video compaiono le carte di Poker Joe e 

viene valutata la sua combinazione. Il vincitore è chi ha la com¬ 
binazione più alta. Il punteggio viene aggiornato. Se tu vinci, Po 
ker Joe ti paga tre chips. Se perdi, gli paghi due chips. Premi la 
barra spaziatrice quando sei pronto per la mano successiva. I 
giocatori di poker si accorgeranno che questo programma non 
distingue le varie combinazioni dello stesso valore. Cioè, il com 
puter considera uguali una coppia di regine ed una coppia di due 
In casi del genere la mano viene dichiarata nulla ed il punteggio 
dei due giocatori rimane inalterato. 


Tattiche vincenti 

Il programma è architettato in maniera tale che non puoi, in ogni caso, es¬ 
umo sicuro che il comportamento di Poker Joe sia condizionato dalle combi¬ 
nazioni delle sue carte. Vi è una considerevole componente, affidata al ca¬ 
ne, responsabile dei cambiamenti di umore di Poker Joe. Talvolta possono 
verificarsi stati d'animo dissociati dalla situazione effettiva, questo significa 
Che Poker Joe sta bluffando. 

Durante il gioco avvertirai che la frequenza delle mani corrisponde a quel¬ 
le tenie. Questo perchè mischiare e dividere le carte è simulato perfetta¬ 
mente Più che ipotizzare le varie combinazioni e calcolare le probabilità 
matematiche, il miglior modo per apprendere il poker è quello di giocarlo e 
i .i( 1 1rne la filosofia. Acquisire esperienza in questo modo è sicuramente me 
ho costoso che farsela ai tavoli da gioco. 
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Digitazione 


I caratteri di controllo usati sono: 


HOME: 

CRSR DOWN: 

CRSR RIGHT: 
CTRL-1 : 
CTRL-3: 
HOME: 


linea 30 

linee 120, 140, 150, 160, 640(2), 720(2), 810(2), 
820, 830,840,850(7) 

linee 120(2), 640(2), 720(2), 850(2), 880(2), 
linee 130, 160, 810, 840 
linee 140, 820 
linea 810 


I caratteri non listati sono: 

C=/2: linee 120 (prima di CRSR DOWN), 

720 (prima di CRSR DOWN), 910 (prima di TU). 
C=/4: linee 640 (prima di CRSR DOWN), 

850 (prima di CRSR DOWN), 910 (prima di P-J). 


Gli altri simboli usati nelle linee 130-160 e 810-840 sono picche, cuori, 
quadri, fiori ottenuti digitando ‘A’.'SVZ’, o ‘X’ con il tasto SHIFT. 

Sezioni del programma 

20 Punteggio iniziale. 

30-40 Inizializzazione variabili. 

50-110 Mescolamento delle carte. 

120-160 Visualizzazione della tua combinazione. 

170-190 Calcolo del numero delle carte dello stesso valore in ogni mano. 

200-220 Calcolo del numero delle carte dello stesso seme in ogni mano, 

230-360 Controllo delle combinazioni per riscontrare le scale massimi» 
370-500 Controllo per poker, full, tris e coppie. 

510-570 Controllo per scale normali. 

580-630 Ricerca della carta più alta. 

640-710 Reazione di Poker Joe. 
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/;>() 760 
7/0 910 
'U’0-930 
1000-1050 

1000 

4000 

5000 


Richiesta della tua decisione. 

Scoperta delle carte di Poker Joe e aggiornamento inintouglo, 
Preparazione per la partita successiva. 

Subroutine che converte i valori delle carte nelle lettere A' !» 
‘Q’, ‘J’ e relativa visualizzazione. 

Istruzioni DATA che contengono i valori delle carte. 

Istruzioni DATA che contengono le reazioni di Poker Joe. 

Istruzione DATA che contiene la definizione delle combinazioni 


Punti di interesse 

La maggior parte delle variabili e delle tabelle viene cancellata usando l i 
•.truzione 'CLR' nella linea 930. Il punteggio, per essere conservato, viene 
•.critto nella locazione RAM 251 e 252 con un’istruzione POKE. Questi indi¬ 
rizzi sono disponibili per programmare e non vengono mai modificati dal 
computer, così i dati immagazzinati in queste locazioni sono al sicuro. Quan¬ 
do il programma inizia il gioco questo punteggio viene conservato in linea 
30. 


Hi LEM ♦♦POKER JOE*^ 

.'Ut '0KE251, 100 : P0KE252,100 

tu l'RINT"IT ; :POKE53280,13'P0KE53281.13'PS=PEEK 
•tu DIMPX<12,3),H/i(12,7),D?ia2,1) 

3H 1 ORJ=1TO10 

Mi D»INT<RNDa>*13>:S=INT<RNDa>#4> 

,'U IFPX<ILS>=1THEN60 
nu PX(D.S)=1 
<u IFJ>5THEN3=S+4 
tuo HX < D > 3 > = 1 
tI0 NEXT 

t.n PRINT"IB»»LE TUE CARTE SONO : WS" 
t |0 PRINTTflB< 5)""; : S=4:G0SUB1000 
I 40 PRINT"»" :PRINTTAB<5>"fS* " ; : S=5 : GOSUB1000 
130 PRINT"W" : PR.INTTABC5> "♦ " ; : S=6: GOSUB1000 

|r,u PR 1 NT"W" : PRINTTAB<5> "" ; : S=7 : GOSUB1000 
I/li FORJ=0T012 : F0RH=0TO1:FORK=0+H*4TO3+hW4 
1UU IFHX<J,K>=1THENDX<J,H)=DX<J,H>+1 
l'O NEXT:NEXT:NEXT 

JiW F ORH=0TOl:F0RK=RM(4T03+hW4:F0RJ=0TO12 
• In tFHX<J,K)=lTHENSX<K>=SX(:K> + l 


251) : VS=PEEK<2' 
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220 NEXT:NEXT:NEXT 
230 S=0 : FORH=0TO1 
240 F0RK=H#4T03+H*4 
250 IFSX<K>=5THENS=K 
260 NEXT : IFS=0THEN360 
270 P=0 : FORJ=12T04STEP-1 
280 F=1 : FORL=JTQJ-4STEP-1 
290 IFHX<L,S>O1THENF=0 
300 NEXT 

310 IFF=1THENR=J 
320 NEXT 

330 IFR=122THENS < H) = 1 G0T0360 

340 IFR>0RNDR<12THENS<H)«2 : GOTO360 

350 S <H > =5 

360 NEXT 

370 FQRH=0TQ1 

380 IFS(H)>0THEN500 

390 FORJ=0TO12 

400 CX < DX ( J .• H > H > = 1 

410 NEXT 

420 F=0 : FORJ=0TO12 
430 IFDX<J,H>=2THENF=F+1 
440 NEXT 

450 IFF=2THENCX<:2/ H)»2 

460 IFCX(4,H)=1THENS <H > =3 = GOTO500 

470 IFCXC3.. H>=1RHDCX<2. H) = l THENS<H>=4 : GOTO500 

480 IFCX <3,H) = 1THENS <H >=7 :GOTO500 

490 IFCX<2,H)>0THENS<H> = 10-CX< 2, H) 

500 NEXT 
510 FORH=0TO1 
520 IFS(H >>0THEN570 
530 FORJ=0TO8 

540 F=1 F0RL=JT0J+4 : IFDXCL..H>=0THENF=0 

550 NEXT: IFF=1THENS < H)=6 

560 NEXT 

570 NEXT 

580 FQRH=0TO1 

590 IFS<H»0THEN630 

600 F=0 : FORJ=12TO0STEP-1 

610 1FDX<J,H > = 1fiNDF=0THENS(H> = 10+J ; F=1 

620 NEXT 

630 NEXT 

640 PRINT '■ PRINT " SRKWFOKER JOE % 

650 IFRND(1 ».9THENM=INT< RND Q > *11> : GOTO680 

660 M=S(0 > +1 NT<RNIi(1 > *3>-2 

670 I FM< 1 THENI*1= 1 

680 IFN>10THENM=10 

696 FORJ=0TO12 : REflDDt : NEXT 

700 FOR.J= 1 TOM ■ RERBM$ ' NEXT 

710 F'RINTMS 

720 PRINT"KSDWUCOSfl VUOI FRRE ?" 

730 GETfì$ : IFfi$=""THEN730 

740 IFR$="P"THENPS=PS+1 : VS=VS-1 : GOTO910 

75G IFfif="V"THEN770 

760 GOTO730 

770 IFM=10THEN79O 

780 FORJ=M+1TO10 :RERDMJ:NEXT 
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■ "'0 M=S(0> : IFM> 1@THENM= 10 

R"U F0R.J=1 TOM : RERDHT ' NEXT -RESTORE 

'M0 PRINT"SS";TflB<20)"SF'OKER JOE Hft MURRINI PRINTTMO 

S-0 OOSUDIQ0U 

820 PR I NT : PR I NTTAB < 22 ) " r*S* " ; : S= 1 : GOSUB1000 
B 30 FRINT^ PRINTTRB<22)" IVO* ", :S=2:GOSUB1000 

■ :40 PRINT : PRINTTABC22) "■»»• " ; : S=3 : GOSUB 1000 

850 PR I NT " SMRftMtìWIT : PR I NT " «POKER JOE HR : HI" ; 

860 PRINTH$ 

070 IFS<0»9flNDS< 1 »9THENS<0)=-S<0> : S( 1)=-S< 1 ) 

880 IFS<0XSa>THENPRINT"»E VINCE! ! " : PS=PS+2 : VS=YS-2 GOTO'* 1 <ì 
890 IFS(0»S<1) THENPRI NT " UVE PERDE ! ! " PS=PS-3 : VS=VS+3 RiiTiìRlu 
000 PRINT "«COSI ' E' PRTTfi ! ! " 

910 PRINT : PRINTTAB<5) "ICTU : “ ; VS; TRE<25) "SP-J : "PS 
920 GETA* IFfltO” "THEN920 
• 30 PQKE251,PS : P0KE252,VS:CLR:GOTO30 
1000 FORJ=12TO0STEP-1 
1010 READD* 

102O IFHX<J,SX>0THENPRINTD$; " 

1O30 NEXT 
1040 RESTORE 
1050 RETURN 

3000 DATAA,K,Q, J, 10,9,8,7,6,5,4,3,2 

■1000 URTflSTfl GHIGNANDO,STA BOCCHEGGIANDO,STR SORRIDENDO,E 

IMPERSCRUTABILI 

•1010 DATAE' PERPLESSO,TI STA GUARDANDO,HA AFFERRATO IL TAVOLIi 
4020 DATASEMBRA MISTERIOSO,STA IMPALLIDENDO,STA BOCCHEGGIANDO 
500G DATAUNA SCALA REALE MASSIMA,UNA SCALA REALE,UN POKER,UN 

FULL,UN COLORI 

■010 DATAUNA SCALA,UN TRIS,UNA DOPPIA COPPIA,COPPIA,UNA CAPTA 

PIU’' ALTA 


READY. 


















CAPITOLO 21 

OSTRICA 












I bassi fondali della baia tropicale di Santa Sesenta-y-Cuatro sono il sogno 
(Ini pescatori di perle. Il fondo di questa baia è quasi interamente coperto da 
ostriche perlifere, i loro gusci rosastri luccicano nella luce solare sottomari¬ 
no Ma attenzione, queste acque tentatrici sono pericolose! Vi sono delle o- 
•.inche giganti sempre pronte ad afferrare la mano protesa di un incauto pe¬ 
si atore. Il pesce scorpione ha delle spine aguzze che infliggono ferite dolo¬ 
roso. La medusa gigante invece paralizza lo sfortunato nuotatore, che viene 
n contatto con i suoi ciondolanti tentacoli. La piovra scatta verso l’alto per 
poi inabissarsi mentre le sue ventose provocano ferite dolorosissime. Ed infi¬ 
no c'è il serpente marino che appare quando meno lo si aspetta con effetti 
dnloteri che riducono il nuotatore in fin di vita. Come ha potuto notare questo 
programma fa largo uso della grafica a sprite del 64. 

Come giocare 

Quando dai RUN al programma il video diventa bianco. Il computer sta 
costruendo l'immagine. Dopo circa 20 secondi, sul video compare una parte 
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della baia dove appari col tuo motoscafo sulla superficie dell’acqua. In su- 
perfide vi è pure la medusa gigante, con i tentacoli sommersi. Nella parln 
bassa dello schermo puoi scorgere le ostriche con i loro gusci rosastri. Tm 
loro vi sono cinque ostriche giganti. Due pesci scorpione nuotano continua* 
mente da destra verso sinistra a profondità e velocità diverse. Vi è anche (I 
mostruoso serpente marino sempre pronto ad intrappolarti. 

Le cifre, nell’angolo in alto a sinistra del video, misurano il tempo in minuti 
e secondi. Hai 5 minuti per raccogliere più ostriche possibili. 

Vi sono solo due tasti da premere: 

; : per nuotare verso la superficie 

/ : per tuffarsi 


Per iniziare premi */’. Ti tuffi nell’acqua. Non occorre tenere il tasto pre 
muto. Una volta che hai digitato continui a nuotare verso il fondo marino 
finché non premi il tasto In questo caso ti capovolgi e risali velocemente 
in superficie. I movimenti laterali sono causati dalla corrente che occasio 
nalmente ti sposta verso destra. Vi è un moto circolare sia per i pesci e sia 
per il pescatore, cosi se esci dallo schermo dalla destra riapparirai dal lato 
sinistro. Questo è l’unico sistema per raggiungere le ostriche che si trovano 
direttamente sotto il motoscafo. 

Se raggiungi il fondo e tocchi un’ostrica il programma automaticamente la 
raccoglie, ti riporta in superficie e ti fa risalire sulla barca. Nel medesimo 
tempo il numero, in alto a destra sul video, verrà incrementato di uno ed indi¬ 
cherà così la quantità di ostriche che hai raccolto. In questa fase la pressio¬ 
ne dei tasti non produce alcun effetto. Ricordati che il nuotatore sale verso 
l’alto direttamente e potrai quindi incontrare i tentacoli della medusa gigante 
che ti infliggeranno tali ferite da costringerti ad abbandonare il gioco. Sul 
fondo invece puoi accidentalmente toccare un’ostrica gigante al posto di 
quella perlifera. Se accade questo verrai trattenuto dalle sue valve per circa 
6 secondi, dopo di che potrai tornare sulla barca per curarti le ferite. Tutto 
questo tempo sarebbe meglio impiegarlo per la raccolta delle ostriche perli¬ 
fere. I pesci scorpione sono un altro ostacolo, il loro contatto ti obbliga a ri¬ 
tornare immediatamente sulla barca per medicarti. Anche questo è automa¬ 
tico. Dopo aver atteso 10 secondi (dal momento del contatto) sarai in grado 
di rituffarti. Il bordo del video, in questo caso, diventa grigio (come quando 
sei imprigionato da un’ostrica gigante) per segnalarti che non puoi muoverti. 
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Rimiti Ih il IiiikIo ritorna bianco i tasti vengono riattivati. Dopo che il gioco ò I- 
liitiHlH < 1,1 « irt n 20-30 secondi la piovra compare dalla destra, si lascia andn 
fl vm oh il iiii'.'to e poi guizza verso l'alto. Il contatto con la piovra è molto 
■P)|til"hi> Sei Infatti costretto a ritornare sulla barca ed attendere circa 30 
•Unitili i ii i .r.lonalmente il serpente marino fa delle apparizioni a sorpresa. 
| litui i ollni arsi quasi ovunque. Se sei catturato dal serpente il gioco finisce. 
Bpunl«iJ(|l" finale relativo a 4 ostriche raccolte è buono per un principiante, 
fft* liiomin.i avere una grande abilità ed una buona dose di fortuna per rac- 
IMiuliiini più di 10 ostriche. 


f Mitiche vincenti 


Iall.usi il più presto possibile è ovviamente essenziale, ma è uno spreco 
ili loitipo nuotare verso i pesci e la piovra perchè sarai costretto a ritornare 
•iilltt borea ed attendere. Cerca di calcolare i tempi di discesa per evitare i 
pelici I Ideale sarebbe quello di evitarli anche nella risalita. Alternando la 
liMis-ilone dei due tasti puoi rimanere immerso ed aspettare che i pesci siano 
|i«nfiiili Attento a quando sei sul fondo, la fretta potrebbe condurti diretta¬ 
mente su un'ostrica gigante. 

Per poter conseguire un punteggio alto, dovresti attraversare l’intero video 
« portarti proprio sotto la tua barca. Qui non c’è un grande pericolo di ostri- 
i lui giganti. 

I a maggior attenzione va posta nel considerare se è meglio evitare i pesci 
a l,i piovra oppure ignorarli. Evitarli nuotando su e già porta via del tempo. I- 
gnorarli aumenta le probabilità di toccarli e quindi di dover trascorrere del 
innipo sulla barca. 


Digitazione 


Due delle linee (360 e 380) sono troppo addensate per poterle digitare co¬ 
nio appaiono sul listato. Usa le abbreviazioni Commodore per la parola PO- 
hl . Invece di tutta la parola digita ‘P’ seguita dalla ‘O’ “shiftata” (premi 
SHIFT contemporaneamente a ‘O’). Così risparmierai 2 caratteri. Per 
THEN’ digita T e ‘H’ “shiftata”. Per ‘AND' digita ‘A’ e ‘N’ schiftata”. Per 
PEEK’ digita ‘P’ e 'E' “shiftata”. 
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I caratteri di controllo usati sono: 


CLEAR: linee 20, 940, 1030 

CTRLe 

3: linea 949 

CRSRDOWN: linee 950(2), 1000(3) 

CRSR RIGHT: linee950(2), 960, 970(2), 980(2), 99:(2), 1000(2) 


Sezioni del programma 

20-1000 Trasferimento definizioni sprites e caratteri speciali in RAM. 
120 Inizializzazione delle variabili. 

130-280 Assetto deM’immagine. 

290 Azzeramento dell'orologio e attivazione del video. 

300-310 Assetto di alcune^ variabili di flag. 

320-420 Movimento del pescatore. 

430-470 Controllo dello scontro con gli altri sprites e relative reazioni. 
480-510 Controllo del contatto con le ostriche giganti e relative reazioni. 
520-540 Controllo ed aggiornamento del tempo. 

550-560 Aggiornamento del numero delle ostriche raccolte. 

570 Numero massimo di ostriche raccolte. 

580-610 Movimento piovre. 

620-640 Controllo dell’eventuale contatto fra il pescatore e la piovra. 
650-690 Apparizione e scomparsa del serpente. 

700-720 Controllo dell'eventuale contatto con il pescatore. 

730-750 Movimento medusa gigante. 

760-780 Controllo dell’eventuale contatto con il pescatore. 

790-810 Movimento del primo pesce. 

820-840 Controllo dell'eventuale contatto con il pescatore. 
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850-870 


Movimento del secondo pesce. 

890-900 Controllo dell’eventuale contatto con il nlom 
910 Ripetizione del ciclo. 

920-1000 Messaggi finali. 

1010-1060 Preparazione per rigiocare. 

1200-1220 Subroutine per il tuffo dalla barca. 

1500-1520 Subroutine per leggere il registro delle collisioni. 

2000-2190 Istruzioni DATA contenente i dettagli per gli sprites. 
2200-2210 Istruzioni DATA contenenti i dettagli per i caratteri speciali 

Punti di interesse 


Il programma usa tutti gli otto sprites e numerosi altri caratteri speciali. 
Gli sprites sono: (zero) motoscafo, (1) piovra, (2) serpente, (3) medusa, (4) 
e (5) pesci, (6) pescatore che si tuffa, (7) pescatore che risale. Il motoscafo 
è sviluppato nella direzione X per assumere una linea più allungata. Il ser¬ 
pente è sviluppato in entrambe le direzioni per renderlo più pericoloso. L’ulti¬ 
ma istruzione POKE, nella linea 20, disattiva il video dopo che l'immagine è 
completata. Poi l’istruzione POKE, nella linea 290, lo riattiva nuovamente. 

Molti contatti, quelli usati con più frequenza, sono assegnati a delle varia¬ 
bili (linea 70) per velocizzare il ciclo principale del programma. Queste in¬ 
cludono Z’ per zero, ’U’ per l’unità, ‘SY’ per 63. 

Il contatto tra il pescatore e le creature marine è controllato dal registro 
delle collisioni tra sprites del VIC II. Questo comunica quali sprites sono in 
contatto con altri sprites. Sfortunatamente, se due o più coppie sono in con¬ 
iano (es. barca con medusa e pescatore con piovra), non si può stabilire 
quale sprites è entrato in contatto con il pescatore. È quindi indispensabile 
controllare il registro dopo ogni movimento di ciascun sprite — da qui deriva¬ 
no tutti i GOSUB 1500 - e scoprire se i bits relativi sono cambiati dall’ultimo 
controllo. A questo scopo viene usata PC, il valore dei 6 bits più bassi (per e- 
sempio gli sprites non pescatori) al controllo precedente, come nella linea 
1500. Se c’è un cambiamento, il flag ‘cambiamento’, viene usato CF. Lo 
sprite incontrato dal pescatore viene indicato con CC. 
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10 REM *# OSTRICH ** 

20 PRINT"3":POKE532S0,1:P0KE53281,3:P0KE53265,PEEK<53265> 

AND239 

30 P0KE56334,PEEK <56334 >AND254:POKE1,PEEK <1> AND251 

40 FORJ=0TO79:X=PEEK<53632+J>:POKE14720+J,X:NEXT 

50 POKE1,PEEK<1>0R4:P0KE56334,PEEK<56334>OR1 

60 P0KE52,48 :P0KE56,48 :POKE53272,< PEEK <53272 >AND240 > + 14 

70 P0KE649,1:POKE650,128 

80 FORJ=0TO7:POKE14368+J,255:NEXT 

90 FORJ=0TO7:POKE14376+J,0:NEXT 

100 FORJ=12288T012734 :READ X:POKEJ,X:NEXT 

110 FORJ=14334T014365 :RERDX:POKEJ,X :NEXT 

120 G=1024 :H=55296:V=53248:VC=V+30:VS=V+21:VX=V+16:U=1:2=0: 

GB=G+170 :SV=63:BV=256 
130 FORJ=0TO199:PGKEG+J,4:P0KEH+J,6:NEXT 
140 FORJ=200TO919:POKEG+J,5 sHEXT 
150 FORJ=920TO959 s POKEG+J , 3 :POKEH+J,10 :NEXT 
160 FORJ=960T0999 :PGKEG+J,4 :POKEH+J,7 :NEXT 
170 F0RJ=1T05:POKEG+920+2TJ,1:POKEH+920+2tJ,0:NEXT 
180 FORJ=0TO5:POKE2040+J,192+J:NEXT 
190 FORJ=0TO2 :POKE2045+J,196+J:NEXT 

200 POKEV+39,1:POKEV+40,0:P0KEV+41,6:P0KEV+42,2:P0KEV+43,1 : 

POKEV+44,4 

210 POKEV+45,0 :POKEV+46,0 

220 POKEV,72 :POKEV+1,74:POKEV+29,5 :POKEGB,0 

230 XP=255:2P=2:VP=RND <1> #60+106 :POKEV+2,XP :POKEV+3,VP 

240 POKEV+4,RND <1> #232+24 :POKEV+5,RND(1> #80+126 :POKEV+23,4 : 

SF=600 

250 FM=255:FW=-1 :P0KEV+6,FM:P0KEV+7,82 
260 F1=344:P0KEV+8,38 :POKEV+9,RND < 1>#45+122 
270 F2=344:POKEV+10,8S:P0KEV+11,RND<1>#45+122 
280 POKEVX,50 :POKEVS,63 

290 TI #= " 000000 ■' : P0KE53265 , PEEK < 53265 > OR 16 

300 GOSUB1500 :B=PEEK(V+31>:IFTICTPTHENPOKE532S0.15:GOTO330 

310 TP=2:POKE53280,U 

320 GET A$ : IFFI^O" "THENA=RSC<fl#> 

330 IFD<90THENFS=2:FC=2 
340 IFFS=UTHEHfl#=“; M :fl=59 
350 IFA=47fìNDD=2THENGOSUB1200 

360 IFfì=47ANDD>2RNDD<222THEND=D+8:POKEV+13,D:POKEV+15,D: 

POKEVS,< PEEK <VS >ANDSV > +64 

370 IF0<94flNDDO2THEND=2 : POKE VS, PEEK <VS> AND 127 : POKEGB, 2: 

POKEVX,PEEK < VX > ANDSV 

380 IFA=59ANDD>93ANOD<230THEN0=D-3:POKEV+13,D:POKEV+15.D: 

POKEVS,< PEEK(VS >ANDSV > + 128 
390 IF A=59ORD=2ORRND<UX.6ORTP>2THEN430 
400 X=X+8:1FX>336THENX=24 

410 IFX>255THENP0KEVX,< PEEK <VX > ANDSV > + 192:POKEV+12,X-BV: 

POKEV+14,X-BV:GOTO430 

420 POKEVX,PEEK <VX > ANDSV:POKEV+12,X :POKEV+14,X 
430 GOSUB1500 
440 IFCF=2THEN480 

450 IFCC=320RCC=16THENFS=U:TP=TI+600 
460 IFCC=8ORCC=4THEN920 
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470 IFCC=2THENFS=U:TP=TI+1800 
480 IFD<222THEN520 
490 BG=G+917+X/8 

500 IFPEEK < BG > =UTHENPOKEBG,2 :FC=U:TP=TI+600 

510 IFPEEK( BG >=3THENP0KEBG+H-G , 3 : POKEBG , 4 : FS*U IP*-1 ’ ♦ U 

520 IFTI>18000THENFT=U:GOTO920 

530 POKEG,RSC<MID*<TI % ,4,IO >:POKEG+U,5 

540 P0KEG+2,RSC<MID*<TI$,5,U>:> :P0KEG+3,RSC<RIGHTT' T I l II ' 

550 P$=STR$<P> :POKEG+39,RSC<RIGHT*<P*,U>> 

560 IFLEN<P*>=2THENPOKEG+38,RSCO.EFT*<P*,1>> 

570 IFP=35THEN920 

580 XP=XP-2:1FXP<ZRNDZP=2THENXF'=255:ZP=Z 
590 IFXP<ZRN0ZP=ZTHENXP=255:ZP=2 
600 VP=VP+2:1FVP>130THENVP=126 

610 POKEV+2,XP :POKEVX,< PEEK< VX > RH0253>+ZP:POKEV+3,VP 

620 GOSUB1500 

630 IFCF=ZTHEH650 

640 IFCC=2THENFS=U:TP=TI+1800 

650 IFTI<SFTHEH700 

660 IFTI>SFRHDTI<SF+2400THENPOKEVS,PEEK<VS> RND251:G0T0738 
670 IFTI<1800+SFTHEN730 

680 POKEV+4,RND< U > *232+24 :POKEV+5,RND< U > *80+126 :POKEVS, 

< PEEK < VS > RND251> *4 

690 SF=800+TI 

700 GOSUB1500 

710 IFCF=ZTHEN730 

720 IFCC=4THEN920 

730 FM=FM+FW: IFFM=-UTHEHFM=Z:FW=U 

740 IFFM>255THENFM=255:FW=-U 

750 P0KEV+6,FM 

760 GOSUB1500 

770 IFCF=ZTHEN790 

780 IFCC=8THEN920 

790 F1=F1—10:1FF1<10THENF1=344 

800 IFF1>255THENP0KEVX,<PEEK<VX>RN0239 > + 16:POKEV+8,F1-BV: 

GOTO820 

810 POKEVX,<PEEK<VX>RND239>:P0KEV+8,F1 

820 GOSUB1500 

830 IFCF=ZTHEN850 

840 IFCC=16THENFS=U:TP=T1+600 

850 F2=F2-20:IFF2<10THENF2=344 

I«60 IFF2>255THENP0KEVX,<PEEK<VX >RND223> +32 :POKEV+10.F2-DVi 

OOTO860 

870 POKEVX,<PEEK<VX>RND223>:POKEV+10,F2 
880 GOSUB1500 
890 IFCF=ZTHEN910 
>00 IFCC=32THENFS=U:TF-TI+600 
910 GOTO300 
'*20 POKE53280,2 
930 FORJ=1TO4000:NEXT 
940 PRINT"33I" : POKEVS, 0:POKE53272,21 

950 IFP> 10THEHPRINT"HSUE ' STRTR UNA BUOHR GIORNRIH DI t HV8MI" 
9b0 I FCC=8THENPR I NT " ||_R MEDUSR TI HR PI ZZI ORTO" 

970 IFCC=4THENPRINT"||IL SERPENTE MRRINO TI MB MI " 
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980 IFFC=1THENPRINT"(FERITO GRAVEMENTE DA UN'OSTRICA GIGANTE" 
990 IFFT=1THENPRINT"(F 'ORA DI RIPOSARSI!" 

1000 PRINT" ÈISfiSlIH AI PESCATO" ;P;" OSTRICHE PERLIFERE" 

1010 GET R$:IFR$=""THEN1010 

1015 IFA$<>" "THEN1010 

1020 TP=0:A=0:FS=0:FT=0:P=0:FC=0:D=0 

1030 PRINT"□":POKE53280,1:P0KE53281,3 

1040 P0KE53272, <PEEK < 53272 >AND240 > + 14 

1050 P0KE53265,PEEK<53265>AN0235 

1060 GOTO130 


1200 0=94 : POKEGB , 4 : X= 128 : POKE V+12 , X : POKEV+14 , X 
1210 POKEV+13,D:POKEV+15.D:POKEVS-PEEKCVS>+64 
1220 RETURN 

1500 C=PEEK<VC> :CC=CC-PC>ANOSV:PC=CANDSV 
1510 CF=Z:IFC>SVTHENCF=U 
1520 RETURN 

2000 DATR8,0,0,8,0,0,28,0,0,8,0,0,8,0,0,8.0,0,8,0.0.8,0,0 
2010 0ATA8,192,0,8,128,0,9,255,0,9,85,0,9,255,3,255,255,255. 

„ 127,255,255 

2020 DATA63,255,254,31,255,253,15,255,253,0,0,0,0,0,0,0.0,0.0 
2030 DATA4,124,48,56,254,8,65,247.4,65,242,2,65,255,2,33,255, 

4,31,254,248 

2040 DATA195,85,0,133,82,240,74,81,12,50,144,130,4,136,66,4, 

136,34 

2050 DATA25,4,17,33,4,8,65,2,8,66,66,8,34,132,34,17,40,72, 

72,32,48,48,0,0,0 

2060 OATA0,0,0,33,128,0,34,64,0,228,32,0,24,16,12,0,8,18,0, 

4,33,0,2,65 

^070 OATA0,1,2,17,0,4,32,128,56,127,192,64,68,96,64,85,112, 

32 12F 248 32 

2080 0ATA127,207,192,117,199,128,53,128,0,31,0,0,12,0,0,0.0, 

0,0 

2090 DATA0,63,0,0,255,0,1,215,0,3,215,0,3,215,0,3,214,0,3, 

214,0,7,214,0 

2100 DATA7,255,0,7,255,0,5,37,0,5,37,0,8,168,128,8,168,128, 

17,69.0 

2110 DATA17,69,0,8,168,128,8,168,128,5,20,64,5,20,64,24.168, 

48,0 

2120 OATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,6,1,0,14,3, 

63,254,7,103,255,135 

2130 DRTR247,255,254,255,255,254,3,255,206,63,64,199,0,96, 

135,0,112,7 

2140 DATA0,120,3,0,28,1,0,0,0,0,0,0,0,0,0,0 

2150 DRTR48,0,0,48,0,0,48,0,0,208,0,0,208,0,0,208,0,0,80,0, 

0,120,0,0,24,0,0,24 

2160 DATA0,0,63,0,0,41,0,0,45,0,0,45,0,0,33,0,0,16,0,0,0,0, 

2170 DATA0,0,0,0,48,0,0,48,0,0,16,0,0,56,0,0,92,0,0.154,0,0, 

154,0,0,154.0,0 

2180 OATA90,0,0,40,0,0,68,0,0,36,0,0,52,0,0,54,0,0,54,0,0,6, 

0/0/0,0r0.r0.f0/0^0 

2190 DRTR0 r 0,0 r 0,0,0,0,0,0 

2200 DATA199,199,231,199,131,255,255,16,24,12.198,99,51,31,15 
2210 DATA56,124,62,63,31,31,15,15,24,60,189,219,102.60,60,24 
READV. 
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Variazioni 


È possibile variare la durata del gioco portando il valori’. nelle lineo 1 >.mi. 
alla dimensione di tempo (in secondi) voluta moltiplicata poi 60 Vi mimio 
molte occasioni per programmare degli effetti sonori, come ad oMompio lo 
‘splash’ del tuffo del pescatore, il sommesso ronzio dei motori del moio-.i alo 
senza menzionare gli inimmaginabili suoni dei mostri marini! 
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Ora sei in possesso di una macchina con una sorprendente 
grafica e capacità musicali che vorrai provare con alcuni giochi 
per farne pieno uso. Qui vi sono ventuno giochi eccitanti e di alta 
qualità che sono stati debitamente provati. 

L’ostrica, per esempio, è una luminosa dimostrazione degli spri- 
tes grafici del Commodore, mentre Flipper è basato sull'Immensa 
varietà di colori e suoni. Anche i più giovani della famiglia si 
divertiranno a costruire il Castello di sabbia prima che la marea 
lo spazzi via, mentre il veloce Buco Nero e il Bombardiere saran¬ 
no un’attrazione per tutte le età. Se Invece ti piace misurarti col 
nemico e sparare in movimento, ti innamorerai degli eccitanti 
giochi come Beirut, Campo minato e Guardie e Ladri. 

Ogni programma è corredato da istruzioni che ti insegnano l’uso 
dei giochi, Il modo in cui essi funzionano è esposto in dettaglio, 
con alcuni accorgimenti sulle tattiche vincenti. Vengono dati 
pure alcuni consigli su come modificare i giochi in forma creativa 
per adattarli alle tue idee. 

L'AUTORE 

Owen Bishop è uno scrittore tecnico ed un programmatore. È 
autore di più di trenta libri di cui uno sulla programmazione per 
tutti. È un esperto e assiduo collaboratore di riviste su computer. 
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